A103526 a(0) = 3; a(n+1) = 2^a(n) - a(n).

3, 5, 27, 134217701

Offset

0,1

Links

Table of n, a(n) for n=0..3.

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

Adjacent sequences: A103523 A103524 A103525 * A103527 A103528 A103529

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