OFFSET
1,2
LINKS
G. C. Greubel, Rows n=1..100 of triangle, flattened
FORMULA
EXAMPLE
The first few rows are:
1;
5, 2;
14, 8, 3;
30, 20, 11, 4;
55, 40, 26, 14, 5;
91, 70, 50, 32, 17, 6;
...
MAPLE
A104634 := proc(n, k) (k-1-n)*(k-2-n)*(k+2*n)/6 ; end proc:
seq(seq(A104634(n, k), k=1..n), n=1..15) ; # R. J. Mathar, Aug 31 2011
MATHEMATICA
Table[(k-1-n)*(k-2-n)*(k+2*n)/6, {n, 1, 20}, {k, 1, n}] // Flatten (* G. C. Greubel, Aug 12 2018 *)
PROG
(PARI) for(n=1, 20, for(k=1, n, print1((k-1-n)*(k-2-n)*(k+2*n)/6, ", "))) \\ G. C. Greubel, Aug 12 2018
(Magma) [[(k-1-n)*(k-2-n)*(k+2*n)/6: k in [1..n]]: n in [1..20]]; // G. C. Greubel, Aug 12 2018
CROSSREFS
KEYWORD
AUTHOR
Gary W. Adamson, Mar 18 2005
EXTENSIONS
Definition in closed form provided by R. J. Mathar, Aug 31 2011
STATUS
approved