A020228 Pseudoprimes to base 100.

9, 33, 91, 99, 153, 259, 303, 451, 481, 561, 657, 703, 909, 949, 1111, 1233, 1241, 1729, 1891, 2047, 2329, 2409, 2701, 2821, 2871, 2981, 3333, 3367, 4141, 4187, 4521, 5461, 5551, 6001, 6533, 6541, 6601, 6931, 7107, 7373, 7471, 7633, 7777, 8149, 8401, 8911

Offset

1,1

Comments

Composite numbers n such that 100^(n-1) == 1 (mod n). - Michel Lagneau, Feb 18 2012

Links

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

Index entries for sequences related to pseudoprimes

Mathematica

base = 100; 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: A020324 A146171 A146188 * A005939 A020326 A201024

Adjacent sequences: A020225 A020226 A020227 * A020229 A020230 A020231

Keyword

nonn

Author

David W. Wilson

Status

approved