A020204 Pseudoprimes to base 76.

15, 21, 25, 33, 35, 55, 75, 77, 105, 165, 175, 231, 265, 275, 325, 385, 425, 525, 545, 561, 781, 825, 949, 1105, 1113, 1155, 1325, 1369, 1417, 1491, 1541, 1749, 1785, 1825, 1891, 1925, 2289, 2465, 2701, 2725, 2821, 3445, 3597, 3605, 4033, 4081, 4097, 4505, 4681

Offset

1,1

Comments

Composite numbers n such that 76^(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 = 76; 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: A181780 A273061 A129926 * A280389 A057489 A070811

Adjacent sequences: A020201 A020202 A020203 * A020205 A020206 A020207

Keyword

nonn

Author

David W. Wilson

Status

approved