A142113 - OEIS

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

%S 41,263,337,929,1151,1373,1447,1669,2039,2113,2557,2927,3001,3371,

%T 3593,3889,4111,4259,4481,4703,4999,5147,5443,5591,5813,6257,6553,

%U 6701,6997,7219,7589,8329,8699,9439,9587,9661,9883,10253,10771,10993,11437,11807

%N Primes congruent to 4 mod 37.

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

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

%t Select[Range[4,20000,37],PrimeQ] (* _Vladimir Joseph Stephan Orlovsky_, May 07 2011 *)

%t Select[Prime[Range[5000]],MemberQ[{4},Mod[#,37]]&] (* _Vincenzo Librandi_, Aug 19 2012 *)

%o (Magma) [p: p in PrimesUpTo(15000) | p mod 37 eq 4 ]; // _Vincenzo Librandi_, Aug 19 2012

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

%Y Cf. A000040, A142112.

%K nonn,easy

%O 1,1

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