A020181 Pseudoprimes to base 53.

4, 9, 26, 27, 28, 39, 45, 52, 65, 91, 117, 153, 286, 351, 364, 561, 585, 703, 946, 1036, 1105, 1405, 1441, 1541, 1636, 1729, 2209, 2465, 2529, 2821, 2863, 2871, 3097, 3277, 3367, 3406, 3481, 3653, 3861, 4005, 4564, 4777, 5317, 5833, 6031, 6364, 6433, 6601

Offset

1,1

Comments

Composite numbers n such that 53^(n-1) == 1 (mod n).

Links

R. J. Mathar, Table of n, a(n) for n=1..1072

Index entries for sequences related to pseudoprimes

Mathematica

base = 53; 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: A340642 A090117 A329125 * A216134 A226908 A328657

Adjacent sequences: A020178 A020179 A020180 * A020182 A020183 A020184

Keyword

nonn

Author

David W. Wilson

Status

approved