A020173 Pseudoprimes to base 45.

4, 22, 44, 76, 133, 253, 418, 436, 451, 481, 638, 763, 1247, 1417, 1541, 1562, 1729, 1771, 1891, 1981, 2047, 2059, 2071, 2356, 2398, 2737, 2821, 3053, 3289, 3553, 4033, 4807, 4921, 5377, 5963, 6322, 6533, 6601, 6817, 7337, 8284, 8321, 8911, 9361, 10879

Offset

1,1

Comments

Composite numbers n such that 45^(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 = 45; 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[11000], CompositeQ[#]&&PowerMod[45, #-1, #]==1&] (* Harvey P. Dale, Oct 12 2019 *)

Crossrefs

Cf. A001567 (pseudoprimes to base 2).

Sequence in context: A163484 A326737 A297434 * A290709 A163433 A187930

Adjacent sequences: A020170 A020171 A020172 * A020174 A020175 A020176

Keyword

nonn

Author

David W. Wilson

Status

approved