OFFSET
1,1
EXAMPLE
a(3) = (2+3) * (2*3) = 5*6 = 30.
MATHEMATICA
t = {2, 3}; Do[AppendTo[t, (Times @@ t) Total[t]], {5}]; t (* T. D. Noe, Oct 08 2012 *)
PROG
(Maxima)
a[0]:2$ a[1]:3$ a[n]:=sum(a[i], i, 0, n-1)*(prod(a[i], i, 0, n-1));
makelist(a[n], n, 0, 5); /* Martin Ettl, Oct 04 2012 */
CROSSREFS
KEYWORD
nonn
AUTHOR
Jon Perry, Oct 01 2012
STATUS
approved