A020213 Pseudoprimes to base 85.

4, 6, 12, 14, 21, 28, 42, 84, 129, 231, 259, 276, 301, 341, 481, 532, 651, 703, 781, 903, 1281, 1351, 1491, 1591, 1729, 2047, 2201, 2509, 2701, 2821, 3097, 3201, 3277, 3311, 3913, 3972, 4371, 4564, 4577, 4681, 4859, 5289, 5662, 6031, 6601, 7141, 7161, 7543

Offset

1,1

Comments

Composite numbers n such that 85^(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 = 85; 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: A266383 A217948 A059891 * A011979 A058219 A131863

Adjacent sequences: A020210 A020211 A020212 * A020214 A020215 A020216

Keyword

nonn

Author

David W. Wilson

Status

approved