|
%I #5 Feb 11 2014 19:05:43
%S 1,2,8,48,384,4608,64512,1161216,23224320,557383680,16721510400,
%T 535088332800,20333356646400,854000979148800,37576043082547200,
%U 1803650067962265600,97397103669962342400,5843826220197740544000
%N a(1) = 1; for n>1, a(n) = Sum_{i=1..n-1} a(i)*prime(i).
%t a[n_] := 1 /; n == 1 a[n_] := Sum[a[i]*Prime[i], {i, 1, n-1}] Table[a[i], {i, 1, 12}]
%K easy,nonn
%O 1,2
%A _Joseph L. Pe_, Aug 06 2005
%E More terms from _Robert G. Wilson v_, Aug 09 2005
|
