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

Author

Vladimir Joseph Stephan Orlovsky, Dec 05 2008

Keywords

• nonn

Comments

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

Crossrefs

Cf. A152477.

Programs

Mathematica

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