A152478 Partial sums of PartitionsQ of Fibonacci numbers.

0, 1, 2, 3, 5, 8, 14, 32, 108, 620, 6998, 180680, 12950282, 3341374218, 4341810374424, 43852571179147329, 5999233370012268208703, 22578209776617142730549141113, 5759108920458153526111129552362859699

Offset

1,3

Comments

In other words, partial sums of the sequence A000009(A000045(n)). - N. J. A. Sloane, Dec 07 2008

Links

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

Mathematica

f[n_]:=Fibonacci[n]; q[n_]:=PartitionsQ[f[n]]; a[n_]:=Sum[q[i], {i, 1, n}];

Crossrefs

Cf. A152477.

Sequence in context: A065955 A196118 A104880 * A102973 A371992 A066372

Adjacent sequences: A152475 A152476 A152477 * A152479 A152480 A152481

Keyword

nonn

Author

Vladimir Joseph Stephan Orlovsky, Dec 05 2008

Status

approved