A142197 - OEIS

%I #11 Sep 08 2022 08:45:35

%S 37,157,197,277,317,397,557,677,757,797,877,997,1117,1237,1277,1597,

%T 1637,1877,1997,2237,2357,2437,2477,2557,2677,2797,2837,2917,2957,

%U 3037,3517,3557,3637,3677,3797,3877,3917,4157,4357,4397,4517,4597,4637,4877,4957

%N Primes congruent to 37 mod 40.

%H Vincenzo Librandi, <a href="/A142197/b142197.txt">Table of n, a(n) for n = 1..1000</a>

%F a(n) ~ 16n log n. - _Charles R Greathouse IV_, Jul 03 2016

%t Select[Prime[Range[2000]],MemberQ[{37},Mod[#,40]]&] (* _Vincenzo Librandi_, Aug 22 2012 *)

%t Select[Range[37,5000,40],PrimeQ] (* _Harvey P. Dale_, Jan 04 2022 *)

%o (Magma) [p: p in PrimesUpTo(7000) | p mod 40 eq 37 ]; // _Vincenzo Librandi_, Aug 22 2012

%o (PARI) is(n)=isprime(n) && n%40==37 \\ _Charles R Greathouse IV_, Jul 03 2016

%Y Cf. A000040.

%K nonn,easy

%O 1,1

%A _N. J. A. Sloane_, Jul 11 2008