A066438 a(n) = 7^n mod n.

0, 1, 1, 1, 2, 1, 0, 1, 1, 9, 7, 1, 7, 7, 13, 1, 7, 1, 7, 1, 7, 5, 7, 1, 7, 23, 1, 21, 7, 19, 7, 1, 13, 15, 28, 1, 7, 11, 31, 1, 7, 7, 7, 25, 37, 3, 7, 1, 0, 49, 37, 9, 7, 1, 43, 49, 1, 49, 7, 1, 7, 49, 28, 1, 37, 37, 7, 21, 67, 49, 7, 1, 7, 49, 43, 45, 28, 25, 7, 1

Offset

1,5

Links

Harry J. Smith and Seiichi Manyama, Table of n, a(n) for n = 1..10000 (first 1000 terms from Harry J. Smith)

Maple

seq(irem(7^n, n), n=1..80); # Zerinvary Lajos, Apr 20 2008

Mathematica

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

Prog

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

Crossrefs

Cf. k^n mod n; A015910 (k=2), A066601 (k=3), A066602 (k=4), A066603 (k=5), A066604 (k=6), this sequence (k=7), A066439 (k=8), A066440 (k=9), A056969 (k=10), A066441 (k=11), A066442 (k=12), A116609 (k=13).

Sequence in context: A273712 A129634 A266825 * A279291 A051126 A168120

Adjacent sequences: A066435 A066436 A066437 * A066439 A066440 A066441

Keyword

nonn

Author

Robert G. Wilson v, Dec 27 2001

Status

approved