|
%I #12 Sep 08 2022 08:45:35
%S 277,499,647,1091,1609,1831,1979,2053,2423,2719,3089,3163,3533,3607,
%T 4051,4273,4421,4643,5087,5309,5531,5827,6197,6271,6863,7159,7307,
%U 7529,7603,8269,8713,8861,9157,9601,9749,10193,10267,10711,10859,11821,11969,12043
%N Primes congruent to 18 mod 37.
%H Vincenzo Librandi, <a href="/A142127/b142127.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[18,30000,37],PrimeQ] (* _Vladimir Joseph Stephan Orlovsky_, May 11 2011 *)
%t Select[Prime[Range[5000]],MemberQ[{18},Mod[#,37]]&] (* _Vincenzo Librandi_, Aug 19 2012 *)
%o (Magma) [p: p in PrimesUpTo(15000) | p mod 37 eq 18 ]; // _Vincenzo Librandi_, Aug 19 2012
%o (PARI) is(n)=isprime(n) && n%37==18 \\ _Charles R Greathouse IV_, Jul 02 2016
%Y Cf. A000040, A142124, A142125, A142126.
%K nonn,easy
%O 1,1
%A _N. J. A. Sloane_, Jul 11 2008
|
