|
%I #14 Jul 01 2023 11:04:18
%S 19,157,433,479,571,617,709,1031,1123,1307,1399,1583,1721,1951,1997,
%T 2089,2273,2411,2503,2549,2687,2917,2963,3331,3469,3607,3929,4021,
%U 4159,4297,4481,4987,5171,5309,5861,5953,6091,6229,6367,6551,6689,6781,6827,7057
%N Primes congruent to 19 mod 23.
%H Vincenzo Librandi, <a href="/A141923/b141923.txt">Table of n, a(n) for n = 1..1000</a>
%F a(n) ~ 22n log n. - _Charles R Greathouse IV_, Jul 02 2016
%t Select[Range[19,20000,23],PrimeQ] (* _Vladimir Joseph Stephan Orlovsky_, May 18 2011 *)
%t Select[Prime[Range[1000]],Mod[#,23]==19&] (* _Harvey P. Dale_, Jul 01 2023 *)
%o (Magma) [p: p in PrimesUpTo(9000) | p mod 23 eq 19 ]; // _Vincenzo Librandi_, Aug 16 2012
%o (PARI) is(n)=isprime(n) && n%23==19 \\ _Charles R Greathouse IV_, Jul 02 2016
%Y Cf. A000040, A141924, A141925, A141926.
%K nonn,easy
%O 1,1
%A _N. J. A. Sloane_, Jul 11 2008
|
