|
%I #19 Sep 08 2022 08:45:35
%S 97,283,593,1151,1213,1399,1523,1709,2081,2143,2267,2887,3011,3259,
%T 3631,4003,4127,4561,4871,4933,5119,5801,5987,6173,6359,6421,6607,
%U 6793,6917,7103,7351,7537,7723,8219,8467,8839,8963,9397,9521,9769,10079,10141,10513
%N Primes congruent to 4 mod 31.
%H Vincenzo Librandi, <a href="/A142008/b142008.txt">Table of n, a(n) for n = 1..1000</a>
%F a(n) ~ 30n log n. - _Charles R Greathouse IV_, Jul 03 2016
%t Select[Range[4,20000,31],PrimeQ] (* _Vladimir Joseph Stephan Orlovsky_, Apr 20 2011 *)
%t Select[Prime[Range[1500]],Mod[#,31]==4&] (* _Harvey P. Dale_, Sep 21 2021 *)
%o (Magma) [ p: p in PrimesUpTo(30000) | p mod 31 eq 4 ]; // _Vincenzo Librandi_, Apr 20 2011
%o (PARI) is(n)=isprime(n) && n%31==4 \\ _Charles R Greathouse IV_, Jul 03 2016
%Y Cf. A000040, A142005, A142006.
%K nonn,easy
%O 1,1
%A _N. J. A. Sloane_, Jul 11 2008
|
