OFFSET
2,1
COMMENTS
LINKS
Harvey P. Dale, Table of n, a(n) for n = 2..1000
MATHEMATICA
a = 36; For[n = 3, n < 25, n++, a = PowerMod[2, a, 10^n]; Print[a]] (* Stefan Steinerberger, May 25 2007 *)
nxt[{n_, a_}]:={n+1, PowerMod[2, a, 10^(n+1)]}; NestList[nxt, {2, 36}, 20][[All, 2]] (* Harvey P. Dale, Jan 22 2023 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, following email from Max Alekseyev, May 06 2007
EXTENSIONS
More terms from Stefan Steinerberger, May 25 2007
STATUS
approved