A020214 Pseudoprimes to base 86.

15, 51, 65, 85, 87, 145, 221, 255, 377, 435, 451, 493, 561, 595, 703, 1015, 1105, 1479, 1729, 1885, 1891, 2091, 2465, 2755, 2821, 2845, 3091, 3451, 4033, 5365, 5685, 6409, 6601, 7395, 7397, 7483, 7701, 8695, 8911, 9061, 9673, 10585, 10991, 11041, 11305

Offset

1,1

Comments

Composite numbers n such that 86^(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 = 86; 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[12000], CompositeQ[#]&&PowerMod[86, #-1, #]==1&] (* Harvey P. Dale, Aug 04 2021 *)

Crossrefs

Cf. A001567 (pseudoprimes to base 2).

Sequence in context: A278909 A194851 A075928 * A127643 A227129 A238574

Adjacent sequences: A020211 A020212 A020213 * A020215 A020216 A020217

Keyword

nonn

Author

David W. Wilson

Status

approved