|
%I #25 Apr 29 2015 11:39:52
%S 4,9,16,25,36,49,64,81,100,144,256,289,324,400,529,576,625,1024,1089,
%T 1225,1369,1600,2209,3249,7396,12544,15129,19321,46656,103684,710649,
%U 1347921,2178576,4870849,14930496,24990001,33385284,228826129,1568397609,10749957124
%N Squares that are the sum of three positive Fibonacci numbers.
%e a(5) = 36 = 1+1+34 = Fib(1)+Fib(2)+Fib(9).
%t f=Fibonacci[Range[40]]; Select[Union[Flatten[Outer[Plus, f, f, f]]], #<f[[-1]]+2 && IntegerQ[Sqrt[#]] &]
%t Select[Union[Total/@Tuples[Fibonacci[Range[50]],3]],IntegerQ[Sqrt[ #]]&] (* _Harvey P. Dale_, Apr 29 2015 *)
%Y Cf. A000045.
%K nonn
%O 1,1
%A _Carmine Suriano_, Jan 12 2011
|
