|
%I #8 Mar 20 2016 11:36:32
%S 1,2,5,21,98,575,3979,31304,277248,2739141,29898743,355083014,
%T 4584190984,63680965127,949202526375,15102175351080,255427113948896,
%U 4573909845546233,86542053988578763,1723504067599805402,36054646740337797072,790412592781303448523
%N E.g.f.: 1/(1-x) * Product_{k>0} (1 + sinh(x^k/k)).
%H Vaclav Kotesovec, <a href="/A270597/b270597.txt">Table of n, a(n) for n = 0..446</a>
%F a(n) ~ n * A130263(n).
%t nn=25; Range[0, nn]!*CoefficientList[Series[1/(1-x)*Product[1+Sinh[x^k/k], {k, 1, nn}], {x, 0, nn}], x]
%Y Cf. A130263, A130268, A218504, A270598.
%K nonn
%O 0,2
%A _Vaclav Kotesovec_, Mar 20 2016
|
