A180060 2^(2^n mod n) mod n.

0, 1, 1, 1, 4, 4, 4, 1, 4, 6, 4, 4, 4, 2, 1, 1, 4, 16, 4, 16, 4, 16, 4, 16, 3, 16, 13, 16, 4, 16, 4, 1, 25, 16, 29, 16, 4, 16, 22, 16, 4, 16, 4, 20, 32, 16, 4, 16, 22, 16, 1, 16, 4, 52, 8, 32, 28, 16, 4, 16, 4, 16, 4, 1, 61, 16, 4, 52, 49, 46, 4, 16, 4, 16, 31, 24, 36, 16, 4, 16

Offset

1,5

Links

Harvey P. Dale, Table of n, a(n) for n = 1..1000

Formula

a(n) = 2^A015910(n) mod n.

Mathematica

Table[Mod[2^(Mod[2^n, n]), n], {n, 50}] (* Alonso del Arte, Jan 14 2011 *)
Table[PowerMod[2, PowerMod[2, n, n], n], {n, 80}] (* Harvey P. Dale, Oct 09 2019 *)

Crossrefs

Cf. A000079, A179976.

Sequence in context: A172088 A159891 A201941 * A220668 A109610 A067395

Adjacent sequences: A180057 A180058 A180059 * A180061 A180062 A180063

Keyword

nonn

Author

Juri-Stepan Gerasimov, Jan 14 2011

Extensions

Entries corrected by R. J. Mathar, Jan 14 2011

Status

approved