|
|
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.
|
|
2
|
|
|
1, 2, -16, 904, -25792, 971936, -135875584, 7531512832, -483853915136, 318210896625152, -26070230641872896, 2367374418301892608, -708155254090757373952, 76928188353501090512896, -9044296958948501037252608, 3432739126498593173574909952, -465041552940366454298747600896
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
LINKS
|
|
|
MAPLE
|
Blist := 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:
A273193_list := size -> Blist(3, size);
|
|
CROSSREFS
|
|
|
KEYWORD
|
sign,frac
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|