|
%I #17 Sep 08 2022 08:45:36
%S 61,167,379,1439,2287,2393,2711,3347,3559,3877,4513,4831,4937,5573,
%T 6421,7057,7481,8011,8117,8329,8647,8753,9283,9601,10343,10979,11827,
%U 11933,12251,12569,12781,13099,13417,13523,13841,14159,15643,15749,16067,16703,17021
%N Primes congruent to 8 mod 53.
%H Vincenzo Librandi, <a href="/A142538/b142538.txt">Table of n, a(n) for n = 1..1000</a>
%p select(isprime, [seq(53*i+8,i=1..1000)]); # _Robert Israel_, Sep 07 2014
%t Select[Prime[Range[2600]], MemberQ[{8}, Mod[#, 53]] &] (* _Vincenzo Librandi_, Aug 29 2012 *)
%t Select[Range[8,18000,53],PrimeQ] (* _Harvey P. Dale_, Jun 06 2013 *)
%o (Magma) [p: p in PrimesUpTo(20000) | p mod 53 eq 8]; // _Vincenzo Librandi_, Aug 29 2012
%o (PARI) select(p -> p%53==8,primes(20000)) \\ _Edward Jiang_, Sep 07 2014
%Y Cf. A000040.
%K nonn,easy
%O 1,1
%A _N. J. A. Sloane_, Jul 11 2008
|
