A020203 Pseudoprimes to base 75.

74, 91, 133, 247, 259, 289, 427, 481, 703, 793, 1073, 1159, 1261, 1387, 1541, 1649, 1729, 1849, 1891, 2071, 2257, 2413, 2701, 2813, 2821, 3367, 3589, 4033, 4681, 4699, 4921, 5551, 5917, 6061, 6533, 6601, 6643, 7957, 8113, 8321, 8614, 8911, 9139, 9211

Offset

1,1

Comments

Composite numbers n such that 75^(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 = 75; 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: A095569 A305265 A055111 * A295158 A039484 A098516

Adjacent sequences: A020200 A020201 A020202 * A020204 A020205 A020206

Keyword

nonn

Author

David W. Wilson

Status

approved