A062175 a(n) = 4^(n-1) mod n.

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

Links

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

Index entries for sequences related to pseudoprimes

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

Adjacent sequences: A062172 A062173 A062174 * A062176 A062177 A062178

Keyword

nonn

Author

Henry Bottomley, Jun 12 2001

Status

approved