A000659 a(n) = 2^a(n-1) + a(n-2).
0, 0, 1, 2, 5, 34, 17179869189
Offset: 0
Keywords
Crossrefs
Cf. A000643.
Programs
-
Mathematica
Join[{a=0,b=0},Table[c=2^b+a;a=b;b=c,{n,5}]] (* Vladimir Joseph Stephan Orlovsky, Apr 13 2011 *) nxt[{a_,b_}]:={b,2^b+a}; NestList[nxt,{0,0},6][[All,1]] (* Harvey P. Dale, Apr 09 2022 *)
Comments