%I #9 Sep 20 2024 16:47:24
%S 37,149,317,373,541,653,709,821,877,1213,1381,1493,1549,1997,2053,
%T 2221,2333,2389,2557,2837,3061,3229,3677,3733,4013,4349,4517,4909,
%U 5021,5077,5189,5413,5581,5693,5749,5861,6029,6197,6421,6701,6869,7541,7877,7933
%N Primes congruent to 37 mod 56.
%H Vincenzo Librandi, <a href="/A142656/b142656.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[Prime[Range[1300]], MemberQ[{37}, Mod[#, 56]] &] (* _Vincenzo Librandi_, Sep 01 2012 *)
%t Select[Range[37,8000,56],PrimeQ] (* _Harvey P. Dale_, Sep 20 2024 *)
%o (Magma) [p: p in PrimesUpTo(10000) | p mod 56 eq 37 ]; // _Vincenzo Librandi_, Sep 01 2012
%Y Cf. A000040.
%K nonn,easy
%O 1,1
%A _N. J. A. Sloane_, Jul 11 2008