OFFSET
1,3
LINKS
F. Ardila, The Coefficients of a Fibonacci power series, arXiv:math/0409418 [math.CO], 2004.
N. Robbins, Fibonacci Partitions, The Fibonacci Quarterly, 34.4 (1996), pp. 306-313.
Yufei Zhao, The coefficients of a truncated Fibonacci power series, Fib. Q., 46/47 (2008/2009), 53-55.
EXAMPLE
1 - x - x^2 + x^4 + x^7 - x^8 + x^11 - x^12 - x^13 + x^14 + x^18 - x^19 - x^20 + x^22 + x^23 - x^24 + x^29 - x^30 - x^31 + x^33 + x^36 - x^38 - x^39 + x^40 + x^47 - ...
MATHEMATICA
kmax = 150; Exponent[#, x]& /@ List @@ (Product[1 - x^Fibonacci[k], {k, 2, Ceiling[FindRoot[Fibonacci[x] == kmax, {x, 5}][[1, 2]]]}] + O[x]^kmax // Normal) (* Jean-François Alcover, Oct 08 2018 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, May 30 2009
STATUS
approved