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,2

Links

Table of n, a(n) for n=1..68.

Index entries for sequences related to sums of squares

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

Crossrefs

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

Sequence in context: A008935 A003995 A064473 * A001983 A143575 A047208

Adjacent sequences: A287959 A287960 A287961 * A287963 A287964 A287965

Keyword

nonn

Author

Ilya Gutkovskiy, Jun 03 2017

Status

approved