A020221 Pseudoprimes to base 93.

4, 25, 28, 46, 92, 301, 322, 325, 425, 506, 532, 793, 805, 865, 874, 1081, 1105, 1393, 1525, 1645, 1729, 1771, 2047, 2071, 2425, 2465, 2737, 2926, 3781, 3913, 4033, 4187, 4325, 4465, 4945, 4996, 5071, 5149, 5185, 5405, 5593, 5713, 5833, 6601, 6697, 6721

Offset

1,1

Comments

Composite numbers n such that 93^(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 = 93; 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: A309056 A095970 A297963 * A042889 A042177 A302416

Adjacent sequences: A020218 A020219 A020220 * A020222 A020223 A020224

Keyword

nonn

Author

David W. Wilson

Status

approved