A066442 a(n) = 12^n mod n.

0, 0, 0, 0, 2, 0, 5, 0, 0, 4, 1, 0, 12, 4, 3, 0, 12, 0, 12, 16, 6, 12, 12, 0, 7, 14, 0, 16, 12, 24, 12, 0, 12, 8, 3, 0, 12, 30, 12, 16, 12, 36, 12, 12, 27, 6, 12, 0, 19, 24, 45, 40, 12, 0, 23, 32, 18, 28, 12, 36, 12, 20, 27, 0, 12, 12, 12, 64, 3, 44, 12, 0, 12, 70, 18, 64, 45, 66, 12

Offset

1,5

Links

Harry J. Smith, Table of n, a(n) for n = 1..1000

Mathematica

Table[PowerMod[12, n, n], {n, 80} ]

Prog

(PARI) { for (n=1, 1000, write("b066442.txt", n, " ", 12^n % n) ) } \\ Harry J. Smith, Feb 14 2010

Crossrefs

Sequence in context: A352554 A352563 A145962 * A171388 A086134 A071090

Adjacent sequences: A066439 A066440 A066441 * A066443 A066444 A066445

Keyword

nonn

Author

Robert G. Wilson v, Dec 27 2001

Status

approved