A020201 Pseudoprimes to base 73.

4, 6, 8, 9, 12, 18, 24, 36, 45, 65, 72, 111, 117, 185, 205, 259, 276, 333, 369, 481, 533, 561, 585, 703, 1105, 1221, 1441, 1517, 1665, 1729, 1845, 1891, 1921, 2047, 2405, 2465, 2466, 2553, 2556, 2665, 2806, 2821, 3439, 4005, 4329, 4636, 4797, 5257, 5461, 5662

Offset

1,1

Comments

Composite numbers n such that 73^(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 = 73; 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: A046760 A115684 A373879 * A292079 A161760 A213308

Adjacent sequences: A020198 A020199 A020200 * A020202 A020203 A020204

Keyword

nonn

Author

David W. Wilson

Status

approved