OFFSET
2,2
LINKS
Michel Lassalle, A new family of positive integers
FORMULA
f(n, p, k) = binomial(n, k)*hypergeom([1-k, -p, p-n], [1-n, 1], 1).
MAPLE
f := proc(n, p, k) convert( binomial(n, k)*hypergeom([1-k, -p, p-n], [1-n, 1], 1), `StandardFunctions`); end;
MATHEMATICA
t[n_, k_] := n*(n-1)/2*HypergeometricPFQ[{-k, 3-n, k-n}, {1, 1-n}, 1]; Table[t[n, k], {n, 2, 12}, {k, 1, n-1}] // Flatten (* Jean-François Alcover, Jan 14 2014 *)
CROSSREFS
KEYWORD
nonn,tabl
AUTHOR
N. J. A. Sloane, Oct 17 2002
STATUS
approved