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

Author

Henry Bottomley, Jun 12 2001

Keywords

• nonn

Links

• Harry J. Smith, Table of n, a(n) for n = 1..1000
• Index entries for sequences related to pseudoprimes

Crossrefs

Cf. A062172.

Programs

Mathematica

Table[PowerMod[4,n-1,n],{n,90}] (* Harvey P. Dale, Jun 09 2022 *)

PARI

{ for (n=1, 1000, write("b062175.txt", n, " ", 4^(n - 1)%n) ) } \\ Harry J. Smith, Aug 02 2009