A020180 Pseudoprimes to base 52.

51, 85, 159, 265, 561, 671, 901, 1513, 1541, 1891, 2413, 2465, 2653, 2703, 2705, 3111, 3201, 3421, 4081, 4187, 4505, 5151, 6307, 6433, 6533, 6601, 6943, 7201, 8365, 8911, 9197, 9773, 9911, 10349, 10585, 11305, 12403, 13019, 13333, 14491, 15051, 15841

Offset

1,1

Comments

Composite numbers n such that 52^(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 = 52; 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[16000], CompositeQ[#]&&PowerMod[52, #-1, #]==1&]  (* Harvey P. Dale, May 11 2024 *)

Crossrefs

Cf. A001567 (pseudoprimes to base 2).

Sequence in context: A039474 A253020 A351026 * A049328 A075894 A229274

Adjacent sequences: A020177 A020178 A020179 * A020181 A020182 A020183

Keyword

nonn,changed

Author

David W. Wilson

Status

approved