login

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).

A020165
Pseudoprimes to base 37.
2
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).
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
KEYWORD
nonn
STATUS
approved