%I #10 Sep 09 2020 09:57:29
%S 1,1,8,39,385,917,31247,22527,1081986,2464860,50099635,14931071,
%T 19684696065,394805109,82267017929,496514888157,11386442827781,
%U 284625019799,3469798073972537,7725084195239,136470024990370842,28400489198168457,241211623942678951,5776331152550399
%N a(n) = [x^n] exp(Sum_{k>=1} sigma(n*k)*x^k/k).
%H Seiichi Manyama, <a href="/A319362/b319362.txt">Table of n, a(n) for n = 0..959</a>
%t Table[SeriesCoefficient[Exp[Sum[DivisorSigma[1, n k] x^k/k, {k, 1, n}]], {x, 0, n}], {n, 0, 23}]
%Y Cf. A000041, A182818, A182819, A182820, A182821, A283077, A283119, A283120, A283121, A319363.
%K nonn,look
%O 0,3
%A _Ilya Gutkovskiy_, Sep 17 2018