cp's OEIS Frontend

A273193 Numerators of the nonzero coefficients in the expansion of 1/hypergeom([Seq_{k=1..m-1} k/m], [], (x/m)^m) for m = 3.

%I A273193 #9 Jun 07 2016 05:54:00
%S A273193 1,2,-16,904,-25792,971936,-135875584,7531512832,-483853915136,
%T A273193 318210896625152,-26070230641872896,2367374418301892608,
%U A273193 -708155254090757373952,76928188353501090512896,-9044296958948501037252608,3432739126498593173574909952,-465041552940366454298747600896
%N A273193 Numerators of the nonzero coefficients in the expansion of 1/hypergeom([Seq_{k=1..m-1} k/m], [], (x/m)^m) for m = 3.
%p A273193 Blist := proc(m, size) local H, S;
%p A273193 H := m -> hypergeom([seq(k/m, k=1..m-1)], [], (x/m)^m);
%p A273193 S := m -> series(1/H(m), x, (m+1)*size);
%p A273193 seq((-1)^n*numer(coeff(S(m), x, m*n)), n=0..size) end:
%p A273193 A273193_list := size -> Blist(3, size);
%Y A273193 Cf. A000012 (m=1), A002596 (m=2), A273192, A273194.
%K A273193 sign,frac
%O A273193 0,2
%A A273193 _Peter Luschny_, Jun 06 2016