|
|
A061213
|
|
a(n) = product of first n triangular numbers (A000217) + 1.
|
|
1
|
|
|
2, 4, 19, 181, 2701, 56701, 1587601, 57153601, 2571912001, 141455160001, 9336040560001, 728211163680001, 66267215894880001, 6958057668962400001, 834966920275488000001, 113555501157466368000001
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
FORMULA
|
a(n) = {n(n+1)/2}*{a(n-1)-1}+1
|
|
EXAMPLE
|
a(6) = 1 * 3 * 6 * 10 *15 * 21 + 1 = 56701
|
|
MAPLE
|
for n from 1 to 30 do printf(`%d, `, 1+product(j*(j+1)/2, j=1..n)) od:
|
|
PROG
|
(PARI) { for (n=1, 100, if (n>1, a=(n*(n + 1)/2)*(a - 1) + 1, a=2); write("b061213.txt", n, " ", a) ) } \\ Harry J. Smith, Jul 19 2009
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
OFFSET changed from 0,1 to 1,1 and EXAMPLE corrected by Harry J. Smith, Jul 19 2009
|
|
STATUS
|
approved
|
|
|
|