|
|
A258874
|
|
E.g.f.: exp( Sum_{n>=1} x^(4*n) / n^4 ) = Sum_{n>=0} a(n) * x^(4*n) / (4*n)!.
|
|
3
|
|
|
1, 24, 22680, 115684800, 1906520616000, 80659993905114624, 7746053047976698430976, 1560262733456599283808153600, 616206470499428864091871431168000, 445310234257659546728524999957770240000, 549601486893233034601458951894087488929628160
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
COMMENTS
|
Sum_{n>=0} a(n)/(4*n)! = exp( Pi^4/90 ) = 2.95152868285335573659431343...
|
|
LINKS
|
|
|
EXAMPLE
|
E.g.f.: A(x) = 1 + 24*x^4/4! + 22680*x^8/8! + 115684800*x^12/12! + 1906520616000*x^16/16! +...
where
log(A(x)) = x^4 + x^8/2^4 + x^12/3^4 + x^16/4^4 + x^20/5^4 + x^24/6^4 +...
or,
log(A(x)) = 24*x^4/4! + 2520*x^8/8! + 5913600*x^12/12! + 81729648000*x^16/16! + 3892643213082624*x^20/20! +...
|
|
MATHEMATICA
|
nmax=20; k=4; Table[(CoefficientList[Series[Exp[PolyLog[k, x^k]], {x, 0, k*nmax}], x] * Range[0, k*nmax]!)[[k*n-k+1]], {n, 1, nmax+1}] (* Vaclav Kotesovec, Jun 21 2015 *)
|
|
PROG
|
(PARI) {a(n) = (4*n)!*polcoeff( exp(sum(m=1, n, (x^m/m)^4)+x*O(x^(4*n))), 4*n)}
for(n=0, 20, print1(a(n), ", "))
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|