0,1
k=3; lst={k}; Do[k=2^k-k; AppendTo[lst, k], {n, 4}]; lst [From Vladimir Joseph Stephan Orlovsky (4vladimir(AT)gmail.com), Nov 19 2010]
Sequence in context: A101611 A069060 A163783 * A054388 A110255 A016552
Adjacent sequences: A103523 A103524 A103525 * A103527 A103528 A103529
nonn
N. J. A. Sloane (njas(AT)research.att.com), Mar 21 2005
The next term is too large to include ~8.913731*10^40403553