A020215 Pseudoprimes to base 87.

86, 91, 133, 217, 247, 301, 385, 403, 473, 559, 589, 817, 1045, 1105, 1111, 1333, 1661, 1705, 1729, 2047, 2365, 2626, 2651, 2821, 3553, 3565, 3785, 3913, 4123, 4141, 4681, 5005, 5461, 5719, 6533, 6601, 7471, 7483, 7657, 8029, 8041, 8401, 8686, 8911, 9331

Offset

1,1

Comments

Composite numbers n such that 87^(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 = 87; 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: A259084 A058907 A045101 * A094776 A095595 A095581

Adjacent sequences: A020212 A020213 A020214 * A020216 A020217 A020218

Keyword

nonn

Author

David W. Wilson

Status

approved