login
A062175
a(n) = 4^(n-1) mod n.
5
0, 0, 1, 0, 1, 4, 1, 0, 7, 4, 1, 4, 1, 4, 1, 0, 1, 16, 1, 4, 16, 4, 1, 16, 6, 4, 7, 8, 1, 4, 1, 0, 16, 4, 11, 16, 1, 4, 16, 24, 1, 16, 1, 20, 16, 4, 1, 16, 29, 44, 16, 12, 1, 34, 36, 32, 16, 4, 1, 4, 1, 4, 16, 0, 61, 34, 1, 64, 16, 64, 1, 16, 1, 4, 31, 64, 4, 10, 1, 64, 61, 4, 1, 16, 1, 4, 16
OFFSET
1,6
MATHEMATICA
Table[PowerMod[4, n-1, n], {n, 90}] (* Harvey P. Dale, Jun 09 2022 *)
PROG
(PARI) { for (n=1, 1000, write("b062175.txt", n, " ", 4^(n - 1)%n) ) } \\ Harry J. Smith, Aug 02 2009
CROSSREFS
Cf. A062172.
Sequence in context: A296794 A119305 A198215 * A085659 A245099 A176219
KEYWORD
nonn
AUTHOR
Henry Bottomley, Jun 12 2001
STATUS
approved