## S000486

Square root of the five-tuples of squares used in S000481.

6, 5, 3, 1, 1, 9, 8, 3, 2, 2, 14, 8, 8, 8, 2, 14, 13, 3, 3, 3, 14, 13, 5, 1, 1, 19, 13, 8, 8, 8, 22, 21, 5, 3, 3, 30, 21, 21, 3, 3, 35, 34, 8, 2, 1, 49, 34, 34, 8, 5, 58, 55, 13, 13, 1, 78, 55, 55, 5, 3, 90, 89, 13, 3, 1, 126, 89, 89, 5, 3, 234, 233, 21, 5, 1

1

The first two numbers in each 5-tuple are usually so close that the plot points appear the same.

T. D. Noe, Plot of 60 5-tuples

T. D. Noe, Table of 60 5-tuples

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, b, c, d}]]], {a, f2}, {b, f2}, {c, f2}, {d, f2}]; Sqrt[t]

Cf. S000481-S000490.

nonn

T. D. Noe, Feb 18 2015