A066604 a(n) = 6^n mod n.

0, 0, 0, 0, 1, 0, 6, 0, 0, 6, 6, 0, 6, 8, 6, 0, 6, 0, 6, 16, 6, 14, 6, 0, 1, 10, 0, 8, 6, 6, 6, 0, 18, 2, 6, 0, 6, 36, 21, 16, 6, 36, 6, 20, 36, 36, 6, 0, 48, 26, 12, 48, 6, 0, 21, 8, 45, 36, 6, 36, 6, 36, 27, 0, 41, 60, 6, 4, 9, 36, 6, 0, 6, 36, 51, 4, 41, 12, 6, 16

Offset

1,7

Links

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

Example

a(7) = 6 as 6^7 = 279936 = 7*39990 + 6.

Maple

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

Mathematica

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

Prog

(PARI) { for (n=1, 1000, write("b066604.txt", n, " ", 6^n % n) ) } \\ Harry J. Smith, Mar 10 2010

Crossrefs

Sequence in context: A344182 A217219 A113555 * A081550 A252244 A019929

Adjacent sequences: A066601 A066602 A066603 * A066605 A066606 A066607

Keyword

easy,nonn

Author

Amarnath Murthy, Dec 22 2001

Extensions

More terms from Floor van Lamoen and Robert G. Wilson v, Dec 27 2001

Status

approved