A020186 Pseudoprimes to base 58.

57, 133, 177, 285, 341, 561, 671, 703, 885, 1105, 1121, 1141, 1441, 1541, 1729, 1891, 2065, 2821, 3009, 3097, 3165, 3363, 3365, 3781, 4061, 4071, 4371, 5605, 6031, 6601, 7363, 7471, 7991, 8119, 8321, 8749, 8911, 9073, 11441, 11859, 12027, 12331, 12403

Offset

1,1

Comments

Composite numbers n such that 58^(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 = 58; 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: A240759 A154092 A118152 * A063316 A020284 A140367

Adjacent sequences: A020183 A020184 A020185 * A020187 A020188 A020189

Keyword

nonn

Author

David W. Wilson

Status

approved