%I #14 Aug 03 2014 14:01:11
%S 4,6,9,12,18,28,36,45,57,66,133,171,217,246,268,285,301,396,451,469,
%T 561,589,685,801,817,1065,1105,1233,1273,1333,1387,1476,1653,1729,
%U 1876,1881,2044,2077,2413,2465,2501,2556,2706,2821,2881,3556,3565,3781,3913,4047
%N Pseudoprimes to base 37.
%C Composite numbers n such that 37^(n-1) == 1 (mod n).
%H R. J. Mathar, <a href="/A020165/b020165.txt">Table of n, a(n) for n=1..1119</a>
%H <a href="/index/Ps#pseudoprimes">Index entries for sequences related to pseudoprimes</a>
%t 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 *)
%Y Cf. A001567 (pseudoprimes to base 2).
%K nonn
%O 1,1
%A _David W. Wilson_