Unique numbers in S000481.
36, 81, 196, 361, 484, 900, 1225, 2401, 3364, 6084, 8100, 15876, 54756, 164025, 373321, 2553604, 17489124, 119836809, 821280964, 5628900676, 38580423561, 264432492900, 1812442912900, 12422657127241, 85146128781156, 583600170521124, 4000054871604169
1
T. D. Noe, Plot of 58 terms
T. D. Noe, Table of 58 terms
Eric W. Weisstein, MathWorld: Fibonacci Number
(Mma) nn = 41; PerfectSquareQ[n_] := JacobiSymbol[n, 13] =!= -1 && JacobiSymbol[n, 19] =!= -1 && JacobiSymbol[n, 17] =!= -1 && JacobiSymbol[n, 23] =!= -1 && IntegerQ[Sqrt[n]]; f2 = Table[Fibonacci[n]^2, {n, 2, nn}]; t = {}; Do[If[a >= b >= c >= d && (a != b || a != c || a != d || b != c || b != d || c != d), n = a + b + c + d; If[PerfectSquareQ[n], AppendTo[t, n]]], {a, f2}, {b, f2}, {c, f2}, {d, f2}]; Union[t]
nonn
T. D. Noe, Feb 18 2015