|
%I #9 Sep 08 2022 08:45:37
%S 53,167,281,509,1193,1307,1877,2333,2447,2789,2903,3359,3701,3929,
%T 4157,4271,5297,5639,5867,5981,6323,6551,6779,7121,7349,7577,7691,
%U 7919,8147,8831,9059,9173,9629,9743,9857,10313,10427,10883,11681,11909,12251,12479
%N Primes congruent to 53 mod 57.
%H Vincenzo Librandi, <a href="/A142698/b142698.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[Prime[Range[2300]], MemberQ[{53}, Mod[#, 57]] &] (* _Vincenzo Librandi_, Sep 02 2012 *)
%t Select[Range[53,13000,57],PrimeQ] (* _Harvey P. Dale_, Jun 08 2022 *)
%o (Magma) [p: p in PrimesUpTo(13000) | p mod 57 eq 53 ]; // _Vincenzo Librandi_, Sep 02 2012
%Y Cf. A000040.
%K nonn,easy
%O 1,1
%A _N. J. A. Sloane_, Jul 11 2008
|
