A098642 Number of partitions of Fibonacci(n) into odd Fibonacci numbers.

1, 1, 1, 1, 2, 3, 5, 11, 28, 87, 331, 1565, 9440, 72908, 712687, 8940809, 146775560, 3135694178, 86745468962, 3153522201617, 151857397825012, 9589042822673342, 797159462260375958, 88429042471401581924, 13020775433175768654191, 2532864078831923248348591

Offset: 0

Author

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

Keywords

• nonn

Crossrefs

Cf. A000045, A098641-A098644.

Programs

Mathematica

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

Extensions

Corrected and extended by Franklin T. Adams-Watters and Robert G. Wilson v, Mar 28 2006

a(0)=1 prepended and a(25) from Alois P. Heinz, Jun 02 2023