A020211 Pseudoprimes to base 83.

21, 65, 82, 105, 123, 133, 205, 231, 265, 273, 287, 451, 533, 561, 689, 697, 703, 861, 1001, 1105, 1113, 1241, 1365, 1558, 1729, 1785, 1891, 2173, 2465, 2569, 2665, 2821, 2993, 3034, 3277, 3445, 4081, 4305, 4411, 4505, 4641, 4745, 5565, 5713, 6541, 6601

Offset

1,1

Comments

Composite numbers n such that 83^(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 = 83; 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[83, #-1, #]==1&] (* Harvey P. Dale, Apr 09 2023 *)

Crossrefs

Cf. A001567 (pseudoprimes to base 2).

Sequence in context: A041860 A041864 A041866 * A014641 A259677 A089115

Adjacent sequences: A020208 A020209 A020210 * A020212 A020213 A020214

Keyword

nonn

Author

David W. Wilson

Status

approved