A357383 Expansion of Product_{k>=1} 1 / (1 + x^Lucas(k)).

1, -1, 1, -2, 1, -1, 2, -2, 3, -4, 4, -5, 5, -5, 7, -7, 8, -10, 9, -10, 11, -11, 14, -15, 16, -18, 17, -18, 20, -21, 24, -26, 27, -29, 29, -31, 35, -36, 40, -43, 43, -46, 48, -51, 56, -59, 63, -67, 68, -72, 77, -80, 86, -91, 94, -99, 103, -108, 116, -121, 127, -134, 137, -143, 151

Offset

0,4

Comments

Convolution inverse of A003263.

Links

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

Mathematica

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

Crossrefs

Cf. A000204, A003263, A357382.

Sequence in context: A119985 A306945 A234716 * A181885 A116560 A309224

Adjacent sequences: A357380 A357381 A357382 * A357384 A357385 A357386

Keyword

sign

Author

Ilya Gutkovskiy, Sep 26 2022

Status

approved