Square root of numbers in S000487.
35, 90, 234, 405, 611, 1598, 4182, 10947, 28658, 75026, 196419, 514230, 1346270, 3524579, 9227466, 24157818, 63245987, 165580142, 433494438, 1134903171, 2971215074, 7778742050, 20365011075, 53316291174, 139583862446, 365435296163, 956722026042
1
Only 405 does not have its smallest square equal to 1; 405^2 = 377^2 + 144^2 + 34^2 + 2^2.
T. D. Noe, Plot of 48 terms
T. D. Noe, Table of 48 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, n = a + b + c + d; If[PerfectSquareQ[n], AppendTo[t, n]]], {a, f2}, {b, f2}, {c, f2}, {d, f2}]; Sqrt[t]
nonn,tabl
T. D. Noe, Feb 18 2015