A020197 Pseudoprimes to base 69.

4, 34, 35, 68, 85, 91, 119, 133, 247, 361, 595, 1105, 1387, 1615, 1729, 1921, 2431, 2465, 2527, 2701, 2821, 3605, 3655, 4187, 4693, 4849, 5713, 6161, 6643, 6943, 7345, 7735, 8911, 10349, 10585, 11191, 11305, 11905, 13019, 13357, 14246, 14315, 15181, 15841

Offset

1,1

Comments

Composite numbers n such that 69^(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 = 69; 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: A225609 A113086 A058153 * A102959 A057959 A220168

Adjacent sequences: A020194 A020195 A020196 * A020198 A020199 A020200

Keyword

nonn

Author

David W. Wilson

Status

approved