A109664 a(1) = 1; for n>1, a(n) = Sum_{i=1..n-1} a(i)*prime(i).

1, 2, 8, 48, 384, 4608, 64512, 1161216, 23224320, 557383680, 16721510400, 535088332800, 20333356646400, 854000979148800, 37576043082547200, 1803650067962265600, 97397103669962342400, 5843826220197740544000

Offset

1,2

Links

Table of n, a(n) for n=1..18.

Mathematica

a[n_] := 1 /; n == 1 a[n_] := Sum[a[i]*Prime[i], {i, 1, n-1}] Table[a[i], {i, 1, 12}]

Crossrefs

Sequence in context: A370677 A370936 A383227 * A009812 A232005 A351422

Adjacent sequences: A109661 A109662 A109663 * A109665 A109666 A109667

Keyword

easy,nonn

Author

Joseph L. Pe, Aug 06 2005

Extensions

More terms from Robert G. Wilson v, Aug 09 2005

Status

approved