login
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.
2
1, 1, 23, 33661, 20125603, 288294050521, 335455351400261, 60921822444067346581, 42334470849679755333739, 125339574046311949415000577841, 3763027389086366356144399489191943
OFFSET
0,3
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
KEYWORD
frac,nonn
AUTHOR
Peter Luschny, Jun 06 2016
STATUS
approved