A066439 a(n) = 8^n mod n.

0, 0, 2, 0, 3, 4, 1, 0, 8, 4, 8, 4, 8, 8, 2, 0, 8, 10, 8, 16, 8, 20, 8, 16, 18, 12, 26, 8, 8, 4, 8, 0, 17, 30, 22, 28, 8, 26, 5, 16, 8, 22, 8, 4, 8, 18, 8, 16, 1, 24, 2, 40, 8, 28, 32, 8, 56, 6, 8, 16, 8, 2, 8, 0, 8, 58, 8, 16, 29, 64, 8, 64, 8, 64, 32, 68, 57, 64, 8, 16

Offset

1,3

Links

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

Maple

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

Mathematica

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

Prog

(Sage) [power_mod(8, n, n)for n in range(1, 81)] # Zerinvary Lajos, Nov 28 2009
(PARI) { for (n=1, 1000, write("b066439.txt", n, " ", 8^n % n) ) } \\ Harry J. Smith, Feb 14 2010

Crossrefs

Sequence in context: A350227 A137372 A212844 * A352579 A241319 A287016

Adjacent sequences: A066436 A066437 A066438 * A066440 A066441 A066442

Keyword

nonn

Author

Robert G. Wilson v, Dec 27 2001

Status

approved