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

Author

Peter Luschny, Jun 06 2016

Keywords

• frac
• nonn

Crossrefs

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

Programs

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);