%I #18 Sep 08 2022 08:45:35
%S 23,73,173,223,373,523,673,773,823,1123,1223,1373,1423,1523,1723,1823,
%T 1873,1973,2273,2423,2473,3023,3323,3373,3623,3673,3823,3923,4073,
%U 4273,4373,4423,4523,4673,4723,4973,5023,5273,5323,5573,5623,5923,6073,6173,6323
%N Primes congruent to 23 mod 25.
%H Vincenzo Librandi, <a href="/A141945/b141945.txt">Table of n, a(n) for n = 1..1000</a>
%p select(isprime, [seq(23+50*j, j=0..1000)]); # _Robert Israel_, Mar 17 2015
%t Select[Range[23, 20000, 25], PrimeQ] (* _Vladimir Joseph Stephan Orlovsky_, Jun 15 2011 *)
%o (Magma) [p: p in PrimesUpTo(8000) | p mod 25 eq 23 ]; // _Vincenzo Librandi_, Aug 16 2012
%o (PARI) is(n)=isprime(n) && n%25==23 \\ _Charles R Greathouse IV_, Jul 01 2016
%Y Cf. A000040, A014134.
%K nonn,easy
%O 1,1
%A _N. J. A. Sloane_, Jul 11 2008
|