OFFSET
1,2
COMMENTS
The next term has 147 digits. [From Harvey P. Dale, Nov 01 2011]
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..13
FORMULA
For n>=4, a(n) = 2*a(n-1) + a(n-2)*(a(n-1) - 2*a(n-2))*(a(n-1) -1)/(a(n-2) -1). - Leroy Quet, Nov 27 2007
EXAMPLE
a(4)=18 as 18 = {1+2+5} + {1*2*5}, where 1, 2, 5 are the previous terms.
MATHEMATICA
lf[l_List] := Append[l, Plus @@ l + Times @@ l]; Nest[f, {1}, 9] (* Harvey P. Dale, Nov 01 2011 *) and modified by Robert G. Wilson v, Sep 03 2012
PROG
(PARI) A062097(n, s=0, p=1)={for(n=2, n, p*=-s+s+=s+p); p+s} \\ - M. F. Hasler, Sep 03 2012
(Haskell)
a062097 n = a062097_list !! (n-1)
a062097_list = 1 : f 1 1 where
f u v = w : f (u + w) (v * w) where w = u + v
-- Reinhard Zumkeller, Mar 20 2014
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Amarnath Murthy, Jun 19 2001
EXTENSIONS
Corrected and extended by Larry Reeves (larryr(AT)acm.org), Jun 19 2001
More terms from Harvey P. Dale, Nov 01 2011
STATUS
approved