|
%I #19 Sep 09 2018 02:24:01
%S 2,3,30,6300,7183890000,58523836061676932100000000,
%T 27902190435973847782838929289594860174185569868010410000000000000000
%N a(n) = (product of previous terms) * (sum of previous terms), with a(1) = 2, a(2) = 3.
%e a(3) = (2+3) * (2*3) = 5*6 = 30.
%t t = {2, 3}; Do[AppendTo[t, (Times @@ t) Total[t]], {5}]; t (* _T. D. Noe_, Oct 08 2012 *)
%o (Maxima)
%o a[0]:2$ a[1]:3$ a[n]:=sum(a[i], i, 0, n-1)*(prod(a[i], i, 0, n-1));
%o makelist(a[n], n, 0, 5); /* _Martin Ettl_, Oct 04 2012 */
%K nonn
%O 1,1
%A _Jon Perry_, Oct 01 2012
|
