A062174 a(n) = 3^(n-1) mod n.

0, 1, 0, 3, 1, 3, 1, 3, 0, 3, 1, 3, 1, 3, 9, 11, 1, 9, 1, 7, 9, 3, 1, 3, 6, 3, 0, 27, 1, 3, 1, 11, 9, 3, 4, 27, 1, 3, 9, 27, 1, 33, 1, 27, 36, 3, 1, 27, 43, 33, 9, 27, 1, 27, 4, 3, 9, 3, 1, 27, 1, 3, 9, 43, 16, 45, 1, 27, 9, 13, 1, 27, 1, 3, 69, 27, 25, 9, 1, 27, 0, 3, 1, 75, 81, 3, 9, 75, 1, 63

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[3,n-1,n],{n,90}] (* Harvey P. Dale, Oct 03 2012 *)

PARI

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