A319362 a(n) = [x^n] exp(Sum_{k>=1} sigma(n*k)*x^k/k).

1, 1, 8, 39, 385, 917, 31247, 22527, 1081986, 2464860, 50099635, 14931071, 19684696065, 394805109, 82267017929, 496514888157, 11386442827781, 284625019799, 3469798073972537, 7725084195239, 136470024990370842, 28400489198168457, 241211623942678951, 5776331152550399

Offset

0,3

Links

Seiichi Manyama, Table of n, a(n) for n = 0..959

Mathematica

Table[SeriesCoefficient[Exp[Sum[DivisorSigma[1, n k] x^k/k, {k, 1, n}]], {x, 0, n}], {n, 0, 23}]

Crossrefs

Cf. A000041, A182818, A182819, A182820, A182821, A283077, A283119, A283120, A283121, A319363.

Sequence in context: A045909 A264091 A353211 * A154425 A120931 A213345

Adjacent sequences: A319359 A319360 A319361 * A319363 A319364 A319365

Keyword

nonn,look

Author

Ilya Gutkovskiy, Sep 17 2018

Status

approved