A357384 Expansion of 1 / (1 + Sum_{k>=1}(-x)^Lucas(k)).

1, 1, 1, 2, 2, 2, 3, 4, 5, 7, 10, 14, 19, 26, 36, 48, 64, 87, 116, 155, 210, 283, 382, 518, 701, 948, 1282, 1732, 2339, 3158, 4263, 5756, 7772, 10495, 14176, 19148, 25865, 34941, 47198, 63753, 86114, 116311, 157095, 212181, 286580, 387070, 522805, 706142, 953777, 1288260, 1740044

Offset: 0

Author

Ilya Gutkovskiy, Sep 26 2022

Keywords

• nonn

Crossrefs

Cf. A000204, A080889, A288039.

Programs

Mathematica

nmax = 50; CoefficientList[Series[1/(1 + Sum[(-x)^LucasL[k], {k, 1, 20}]), {x, 0, nmax}], x]