A020225 Pseudoprimes to base 97.

4, 6, 8, 12, 16, 21, 24, 32, 48, 49, 66, 96, 105, 147, 176, 186, 231, 245, 341, 344, 469, 481, 496, 561, 637, 645, 651, 833, 946, 949, 973, 1056, 1065, 1068, 1105, 1128, 1729, 1813, 1891, 2046, 2047, 2465, 2701, 2821, 2976, 3053, 3277, 3283, 3577, 4187

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 = 97; 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: A225512 A233036 A062554 * A310663 A162294 A344994

Adjacent sequences: A020222 A020223 A020224 * A020226 A020227 A020228

Keyword

nonn

Author

David W. Wilson

Status

approved