A152480 Products of PartitionsQ of Fibonacci numbers.
1, 1, 1, 1, 2, 6, 36, 648, 49248, 25214976, 160821116928, 27931733230288896, 356677116520963546939392, 1187172652051836115416531874086912, 5150511748819234946137723863013776583789903872
Offset: 1
Keywords
Programs
-
Mathematica
f[n_]:=Fibonacci[n];q[n_]:=PartitionsQ[f[n]];a[n_]:=Product[q[i],{i,1,n}];