editing
approved
editing
approved
a(n) ~ c * 2^(n/2), where
c = 4.633065657780064798394952757560310709647495826095820632429... if mod(n,4) = 0
c = 4.169885941972377533366541853673119715620037601993736640548... if mod(n,4) = 1
c = 4.088913297791237602600754017373520586356446410096065167531... if mod(n,4) = 2
c = 4.069986547973463713613958049535085419215417774875202440925... if mod(n,4) = 3.
Vaclav Kotesovec, <a href="/A265821/b265821.txt">Table of n, a(n) for n = 0..5000</a>
allocated for Vaclav Kotesovec
Expansion of Product_{k>=1} 1/(1 - (3*k-2)*x^(3*k-2)).
1, 1, 1, 1, 5, 5, 5, 12, 28, 28, 38, 66, 130, 143, 232, 344, 616, 738, 1094, 1561, 2840, 3671, 5117, 7227, 12833, 16182, 22428, 32205, 57058, 71006, 98684, 141253, 241563, 301889, 421994, 610113, 1018507, 1278706, 1784671, 2549610, 4224964, 5333003, 7491698
0,5
nmax = 40; CoefficientList[Series[Product[1/(1 - (3*k-2)*x^(3*k-2)), {k, 1, nmax}], {x, 0, nmax}], x]
allocated
nonn
Vaclav Kotesovec, Dec 15 2015
approved
editing
allocated for Vaclav Kotesovec
allocated
approved