|
|
A255614
|
|
G.f.: Product_{k>=1} 1/(1-x^k)^(7*k).
|
|
8
|
|
|
1, 7, 42, 203, 882, 3486, 12880, 44885, 149170, 475587, 1462993, 4359474, 12628091, 35656446, 98372109, 265701212, 703800790, 1830960824, 4684293222, 11798774953, 29288385021, 71714795158, 173351031721, 413964243476, 977243358574, 2281942600035, 5273570826594
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
LINKS
|
|
|
FORMULA
|
G.f.: Product_{k>=1} 1/(1-x^k)^(7*k).
a(n) ~ 7^(13/36) * Zeta(3)^(13/36) * exp(7/12 + 3 * 2^(-2/3) * 7^(1/3) * Zeta(3)^(1/3) * n^(2/3)) / (A^7 * 2^(5/36) * sqrt(3*Pi) * n^(31/36)), where A = A074962 = 1.2824271291... is the Glaisher-Kinkelin constant and Zeta(3) = A002117 = 1.202056903... . - Vaclav Kotesovec, Feb 28 2015
G.f.: exp(7*Sum_{k>=1} x^k/(k*(1 - x^k)^2)). - Ilya Gutkovskiy, May 29 2018
|
|
MAPLE
|
a:= proc(n) option remember; `if`(n=0, 1, 7*add(
a(n-j)*numtheory[sigma][2](j), j=1..n)/n)
end:
|
|
MATHEMATICA
|
nmax=50; CoefficientList[Series[Product[1/(1-x^k)^(7*k), {k, 1, nmax}], {x, 0, nmax}], x]
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|