A188800 Expansion of Weierstrass sigma function where g2 = 2, g3 = 0.

1, -1, -9, 69, 321, 160839, 1416951, -388946691, 25514578881, -7647989401521, -1013917176434889, -155812911328032651, 58581931023896704641, -5858755019306243919081, -408029640141643683923529, 1792307462194161463885110189, 320024081648207578976876009601

Offset

0,3

Links

Nathaniel Johnston, Table of n, a(n) for n = 0..128

Formula

E.g.f.: Sum_{k>=0} a(n) z^(4*k + 1) / (4*k + 1)! = sigma(z, 2, 0). - Michael Somos, Jun 09 2011

Column 0 of array in A188797.

Mathematica

a[ n_] := If[ n < 0, 0, With[ {m = 4 n + 1}, m! SeriesCoefficient[ WeierstrassSigma[ x, {2, 0}], {x, 0, m}]]]; (* Michael Somos, Jun 09 2011 *)

Crossrefs

Cf. A188797.

Sequence in context: A197425 A089379 A193698 * A297393 A072258 A196490

Adjacent sequences: A188797 A188798 A188799 * A188801 A188802 A188803

Keyword

sign,easy

Author

N. J. A. Sloane, Apr 10 2011

Extensions

a(6) - a(16) from Nathaniel Johnston, Apr 11 2011

Status

approved