This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A151661 #26 Jan 05 2025 19:51:39
%S A151661 0,1,2,4,7,8,11,12,13,14,18,19,20,22,23,24,29,30,31,33,36,38,39,40,47,
%T A151661 48,49,51,54,55,58,59,62,64,65,66,76,77,78,80,83,84,87,88,89,90,94,95,
%U A151661 96,97,100,101,104,106,107,108,123,124,125,127,130,131,134,135,136,137,141,142
%N A151661 Exponents in g.f. Product_{k>=2} (1 - x^{F_k}) where F_k are the Fibonacci numbers.
%H A151661 F. Ardila, <a href="http://arXiv.org/abs/math.CO/0409418">The Coefficients of a Fibonacci power series</a>, arXiv:math/0409418 [math.CO], 2004.
%H A151661 N. Robbins, <a href="https://web.archive.org/web/2024*/https://www.fq.math.ca/Scanned/34-4/robbins.pdf">Fibonacci Partitions</a>, The Fibonacci Quarterly, 34.4 (1996), pp. 306-313.
%H A151661 Yufei Zhao, <a href="https://web.archive.org/web/2024*/https://www.fq.math.ca/Papers1/46_47-1/Zhao_12-08.pdf">The coefficients of a truncated Fibonacci power series</a>, Fib. Q., 46/47 (2008/2009), 53-55.
%e A151661 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 - ...
%t A151661 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 *)
%Y A151661 Cf. A000045, A093996.
%K A151661 nonn
%O A151661 1,3
%A A151661 _N. J. A. Sloane_, May 30 2009