A020165 Pseudoprimes to base 37.

4, 6, 9, 12, 18, 28, 36, 45, 57, 66, 133, 171, 217, 246, 268, 285, 301, 396, 451, 469, 561, 589, 685, 801, 817, 1065, 1105, 1233, 1273, 1333, 1387, 1476, 1653, 1729, 1876, 1881, 2044, 2077, 2413, 2465, 2501, 2556, 2706, 2821, 2881, 3556, 3565, 3781, 3913, 4047

Offset

1,1

Comments

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

Links

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

Index entries for sequences related to pseudoprimes

Mathematica

base = 37; 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: A175250 A078782 A165897 * A368196 A110607 A085802

Adjacent sequences: A020162 A020163 A020164 * A020166 A020167 A020168

Keyword

nonn

Author

David W. Wilson

Status

approved