OFFSET
0,5
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 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Marcel Dubois de Cadouin (dubois.ml(AT)club-internet.fr), Oct 27 2004
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
STATUS
approved