A294356 E.g.f.: Product_{k>0} (1+x^k)^(-1/k).

1, -1, 1, -5, 23, -119, 619, -4759, 48145, -476657, 4249961, -48286061, 691331431, -9132207655, 117900772963, -2025161870159, 37607411624609, -628236985455329, 10768798391659345, -215626810984559317, 4751529623277906871, -105427459848063440471

Offset

0,4

Links

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

Mathematica

nmax = 20; CoefficientList[Series[Product[1/(1+x^k)^(1/k), {k, 1, nmax}], {x, 0, nmax}], x] * Range[0, nmax]! (* Vaclav Kotesovec, Oct 29 2017 *)

Prog

(PARI) N=66; x='x+O('x^N); Vec(serlaplace(prod(k=1, N, 1/(1+x^k)^(1/k))))

Crossrefs

Cf. A028342, A028343, A168243.

Sequence in context: A321798 A005393 A193704 * A162815 A351756 A033312

Adjacent sequences: A294353 A294354 A294355 * A294357 A294358 A294359

Keyword

sign

Author

Seiichi Manyama, Oct 29 2017

Status

approved