A098643 Number of partitions of Fibonacci(n) into even Fibonacci numbers.

0, 0, 1, 0, 0, 2, 0, 0, 6, 0, 0, 52, 0, 0, 1471, 0, 0, 135029, 0, 0, 41906834, 0, 0, 45729175098, 0, 0

Offset: 1

Author

Marcel Dubois de Cadouin (dubois.ml(AT)club-internet.fr), Oct 27 2004

Keywords

• nonn

Comments

a(3i-1)=a(3i+1)=0.

Crossrefs

Cf. A098641-A098644.

Programs

Mathematica

cl = CoefficientList[ Series[1/Product[(1 - x^Fibonacci[3i]), {i, 8}], {x, 0, 46368}], x]; cl[[Table[Fibonacci[i] + 1, {i, 21}]]] (* Robert G. Wilson v *)

Extensions

More terms from Franklin T. Adams-Watters and Robert G. Wilson v, Mar 28 2006