A020195 Pseudoprimes to base 67.

6, 22, 33, 49, 51, 66, 85, 154, 165, 187, 217, 385, 561, 637, 682, 703, 946, 1045, 1078, 1105, 1309, 1519, 1705, 1729, 2047, 2209, 2245, 2465, 2701, 2805, 2821, 3165, 3201, 3565, 4123, 4165, 4566, 4631, 4774, 5005, 5214, 5611, 5797, 6119, 6369, 6601, 7633

Offset

1,1

Comments

Composite numbers n such that 97^(n-1) == 1 (mod n).

Links

T. D. Noe, Table of n, a(n) for n = 1..1000

Index entries for sequences related to pseudoprimes

Mathematica

base = 67; t = {}; n = 1; While[Length[t] < 100, n++; If[! PrimeQ[n] && PowerMod[base, n-1, n] == 1, AppendTo[t, n]]]; t (* T. D. Noe, Feb 21 2012 *)

Crossrefs

Cf. A001567 (pseudoprimes to base 2).

Sequence in context: A035285 A069824 A015709 * A035134 A075799 A046392

Adjacent sequences: A020192 A020193 A020194 * A020196 A020197 A020198

Keyword

nonn

Author

David W. Wilson

Status

approved