cp's OEIS Frontend

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.

%I A273192 #14 Jun 07 2016 04:25:35
%S A273192 1,1,23,33661,20125603,288294050521,335455351400261,
%T A273192 60921822444067346581,42334470849679755333739,
%U A273192 125339574046311949415000577841,3763027389086366356144399489191943
%N 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.
%p A273192 Hlist := proc(m, size) local H, S;
%p A273192 H := m -> hypergeom([], [seq(k/m, k=1..m-1)], (x/m)^m);
%p A273192 S := m -> series(1/H(m), x, (m+1)*size);
%p A273192 seq((-1)^n*numer(coeff(S(m), x, m*n)), n=0..size) end:
%p A273192 A273192_list := size -> Hlist(4, size);
%Y A273192 Cf. A000012 (m=1), A046976 (m=2), A273193, A273194.
%K A273192 frac,nonn
%O A273192 0,3
%A A273192 _Peter Luschny_, Jun 06 2016