|
%I #4 Jun 03 2017 19:02:59
%S 1,4,5,9,10,13,14,25,26,29,30,34,35,38,39,64,65,68,69,73,74,77,78,89,
%T 90,93,94,98,99,102,103,169,170,173,174,178,179,182,183,194,195,198,
%U 199,203,204,207,208,233,234,237,238,242,243,246,247,258,259,262,263,267,268,271,272,441,442,445,446,450
%N Positive numbers that are the sum of the squares of distinct Fibonacci numbers (with a single type of 1).
%H <a href="/index/Su#ssq">Index entries for sequences related to sums of squares</a>
%t nmax = 450; f[x_] := Product[1 + x^Fibonacci[k]^2, {k, 2, 10}]; Exponent[#, x] & /@ List @@ Normal[Series[f[x], {x, 0, nmax}]] // Rest
%Y Cf. A000119, A003995, A007598, A048261, A280933.
%K nonn
%O 1,2
%A _Ilya Gutkovskiy_, Jun 03 2017
|
