A152477 Partial sums of PartitionsP of Fibonacci numbers.

0, 1, 2, 4, 7, 14, 36, 137, 929, 13239, 464515, 50460440, 22591114885, 60828726553214, 1596736103217310005, 758951202691072926415726, 14362612850483065758193194817954

Offset: 1

Author

Vladimir Joseph Stephan Orlovsky, Dec 05 2008

Keywords

• nonn

Comments

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

Programs

Mathematica

f[n_]:=Fibonacci[n];p[n_]:=PartitionsP[f[n]];a[n_]:=Sum[p[i],{i,1,n}];
Accumulate[Join[{0},PartitionsP[Fibonacci[Range[20]]]]] (* Harvey P. Dale, Nov 18 2024 *)