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,4

Links

Table of n, a(n) for n=0..50.

Mathematica

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

Crossrefs

Cf. A000204, A080889, A288039.

Sequence in context: A239291 A022869 A359319 * A022865 A373785 A089150

Adjacent sequences: A357381 A357382 A357383 * A357385 A357386 A357387

Keyword

nonn

Author

Ilya Gutkovskiy, Sep 26 2022

Status

approved