A020227 Pseudoprimes to base 99.

14, 25, 35, 49, 65, 98, 145, 169, 175, 217, 245, 325, 361, 377, 637, 703, 725, 742, 775, 833, 845, 1105, 1225, 1421, 1519, 1729, 1834, 1885, 2191, 2198, 2413, 2465, 2821, 3185, 3277, 3565, 4069, 4123, 4225, 4699, 4753, 4795, 4901, 5365, 5425, 5611, 6601

Offset

1,1

Comments

Composite numbers n such that 99^(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 = 99; 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 *)
Select[Range[7000], CompositeQ[#]&&PowerMod[99, #-1, #]==1&] (* Harvey P. Dale, Jul 16 2015 *)

Crossrefs

Cf. A001567 (pseudoprimes to base 2).

Sequence in context: A366960 A061923 A031075 * A032608 A341171 A164403

Adjacent sequences: A020224 A020225 A020226 * A020228 A020229 A020230

Keyword

nonn

Author

David W. Wilson

Status

approved