login
A103526
a(0) = 3; a(n+1) = 2^a(n) - a(n).
0
3, 5, 27, 134217701
OFFSET
0,1
MATHEMATICA
k=3; lst={k}; Do[k=2^k-k; AppendTo[lst, k], {n, 4}]; lst (* Vladimir Joseph Stephan Orlovsky, Nov 19 2010 *)
CROSSREFS
Sequence in context: A307631 A307630 A163783 * A054388 A110255 A290330
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Mar 21 2005
EXTENSIONS
The next term, approximately 8.913731*10^40403553, is too large to include.
STATUS
approved