%I #14 Sep 08 2022 08:45:37
%S 53,181,373,757,821,1013,1973,2293,2357,2549,2677,2741,3061,3253,3637,
%T 3701,4021,4597,4789,5237,5557,5749,5813,6133,6197,6389,6581,6709,
%U 7349,7477,7541,7669,8053,8117,8501,8629,8693,8821,9013,9397,9461,9781,9973,10037
%N Primes congruent to 53 mod 64.
%H Vincenzo Librandi, <a href="/A142949/b142949.txt">Table of n, a(n) for n = 1..1000</a>
%t lst={};Do[p=Prime[n];If[Mod[p,64]==53,AppendTo[lst,p]],{n,7!}];lst (* _Vladimir Joseph Stephan Orlovsky_, Mar 02 2009 *)
%t Select[Prime[Range[1700]], MemberQ[{53}, Mod[#, 64]] &] (* _Vincenzo Librandi_, Sep 07 2012 *)
%t Select[Range[53,11000,64],PrimeQ] (* _Harvey P. Dale_, Dec 09 2013 *)
%o (Magma) [p: p in PrimesUpTo(11000) | p mod 64 eq 53]; // _Vincenzo Librandi_, Sep 07 2012
%Y Cf. A000040.
%K nonn,easy
%O 1,1
%A _N. J. A. Sloane_, Jul 11 2008
|