A287962 Positive numbers that are the sum of the squares of distinct Fibonacci numbers (with a single type of 1).

1, 4, 5, 9, 10, 13, 14, 25, 26, 29, 30, 34, 35, 38, 39, 64, 65, 68, 69, 73, 74, 77, 78, 89, 90, 93, 94, 98, 99, 102, 103, 169, 170, 173, 174, 178, 179, 182, 183, 194, 195, 198, 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

Offset: 1

Author

Ilya Gutkovskiy, Jun 03 2017

Keywords

• nonn

Links

• Index entries for sequences related to sums of squares

Crossrefs

Cf. A000119, A003995, A007598, A048261, A280933.

Programs

Mathematica

nmax = 450; f[x_] := Product[1 + x^Fibonacci[k]^2, {k, 2, 10}]; Exponent[#, x] & /@ List @@ Normal[Series[f[x], {x, 0, nmax}]] // Rest