A020187 Pseudoprimes to base 59.

15, 58, 87, 145, 435, 451, 561, 645, 946, 1015, 1105, 1141, 1247, 1541, 1661, 1729, 1885, 1991, 2413, 2465, 2755, 2821, 3097, 4215, 4681, 4795, 5365, 5611, 5729, 6191, 6409, 6533, 6601, 7421, 8149, 8321, 8705, 8911, 9637, 10081, 10217, 10585, 11041

Offset

1,1

Comments

Composite numbers n such that 59^(n-1) == 1 (mod n).

Links

R. J. Mathar, Table of n, a(n) for n=1..1137

Index entries for sequences related to pseudoprimes

Mathematica

base = 59; 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], !PrimeQ[#]&&PowerMod[59, #-1, #]==1&] (* Harvey P. Dale, Oct 02 2012 *)

Crossrefs

Cf. A001567 (pseudoprimes to base 2).

Sequence in context: A261419 A183942 A012691 * A261798 A022287 A288747

Adjacent sequences: A020184 A020185 A020186 * A020188 A020189 A020190

Keyword

nonn

Author

David W. Wilson

Status

approved