A152480 Products of PartitionsQ of Fibonacci numbers.

1, 1, 1, 1, 2, 6, 36, 648, 49248, 25214976, 160821116928, 27931733230288896, 356677116520963546939392, 1187172652051836115416531874086912, 5150511748819234946137723863013776583789903872

Offset: 1

Author

Vladimir Joseph Stephan Orlovsky, Dec 05 2008

Keywords

• nonn

Crossrefs

Cf. A152477, A152478, A152479

Programs

Mathematica

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