OFFSET
0,2
COMMENTS
Also the numerators of the nonzero coefficients in the expansion of hypergeom([Seq_{k=1..m-1} k/m], [], (x/m)^m) for m = 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(H(m), x, (m+1)*size);
seq(numer(coeff(S(m), x, m*n)), n=0..size) end:
A273194_list := size -> Hlist(3, size);
# Alternative:
coprimes := n -> select(j -> igcd(j, n) = 1, {$1..n}):
R := (n, d) -> mul(pochhammer(j/d, n), j in coprimes(d)) / n!:
seq(numer(R(n, 3)), n = 0..16); # Peter Luschny, May 20 2021
CROSSREFS
KEYWORD
nonn,frac
AUTHOR
Peter Luschny, Jun 06 2016
STATUS
approved