A273192 Unsigned numerators of the nonzero coefficients in the expansion of 1/hypergeom([], [Seq_{k=1..m-1} k/m], (x/m)^m) for m = 4.

1, 1, 23, 33661, 20125603, 288294050521, 335455351400261, 60921822444067346581, 42334470849679755333739, 125339574046311949415000577841, 3763027389086366356144399489191943

Offset

0,3

Links

Table of n, a(n) for n=0..10.

Maple

Hlist := proc(m, size) local H, S;
H := m -> hypergeom([], [seq(k/m, k=1..m-1)], (x/m)^m);
S := m -> series(1/H(m), x, (m+1)*size);
seq((-1)^n*numer(coeff(S(m), x, m*n)), n=0..size) end:
A273192_list := size -> Hlist(4, size);

Crossrefs

Cf. A000012 (m=1), A046976 (m=2), A273193, A273194.

Sequence in context: A348307 A033998 A157167 * A233210 A173369 A185695

Adjacent sequences: A273189 A273190 A273191 * A273193 A273194 A273195

Keyword

frac,nonn

Author

Peter Luschny, Jun 06 2016

Status

approved