|
|
A109664
|
|
a(1) = 1; for n>1, a(n) = Sum_{i=1..n-1} a(i)*prime(i).
|
|
0
|
|
|
1, 2, 8, 48, 384, 4608, 64512, 1161216, 23224320, 557383680, 16721510400, 535088332800, 20333356646400, 854000979148800, 37576043082547200, 1803650067962265600, 97397103669962342400, 5843826220197740544000
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
MATHEMATICA
|
a[n_] := 1 /; n == 1 a[n_] := Sum[a[i]*Prime[i], {i, 1, n-1}] Table[a[i], {i, 1, 12}]
|
|
CROSSREFS
|
|
|
KEYWORD
|
easy,nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|