[go: up one dir, main page]

login
A020221
Pseudoprimes to base 93.
1
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).
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
KEYWORD
nonn
STATUS
approved