%I #14 Aug 17 2023 20:47:30
%S 53,167,281,433,509,547,661,1117,1193,1231,1307,1459,1801,1877,2029,
%T 2143,2333,2371,2447,2713,2789,2903,3169,3359,3511,3701,3739,3853,
%U 3929,3967,4157,4271,4423,4651,4993,5107,5297,5449,5563,5639,5791,5867,5981,6133
%N Primes congruent to 15 mod 19.
%H Vincenzo Librandi, <a href="/A141880/b141880.txt">Table of n, a(n) for n = 1..1000</a>
%F a(n) ~ 18n log n. - _Charles R Greathouse IV_, Jul 03 2016
%t Select[Range[15,5000,19],PrimeQ[#]&] (* _Vladimir Joseph Stephan Orlovsky_, Apr 03 2011*)
%t Select[Prime[Range[800]],Mod[#,19]==15&] (* _Harvey P. Dale_, Aug 17 2023 *)
%o (Magma) [p: p in PrimesUpTo(7000) | p mod 19 eq 15 ]; // _Vincenzo Librandi_, Aug 15 2012
%o (PARI) is(n)=isprime(n) && n%19==15 \\ _Charles R Greathouse IV_, Jul 03 2016
%Y Cf. A000040, A141869.
%K nonn,easy
%O 1,1
%A _N. J. A. Sloane_, Jul 11 2008
|