|
%I #15 Sep 08 2022 08:45:37
%S 73,137,457,521,1033,1097,1289,1481,1609,1801,1993,2377,2441,2633,
%T 2953,3209,3529,3593,4297,4937,5449,5641,5897,6089,6217,6473,6793,
%U 6857,7177,7369,7433,7561,7753,7817,8009,8329,8521,8713,8969,9161,9929,10313,10889
%N Primes congruent to 9 mod 64.
%H Vincenzo Librandi, <a href="/A142929/b142929.txt">Table of n, a(n) for n = 1..1000</a>
%t lst={};Do[p=Prime[n];If[Mod[p,64]==9,AppendTo[lst,p]],{n,7!}];lst (* _Vladimir Joseph Stephan Orlovsky_, Feb 27 2009 *)
%t Select[Prime[Range[1700]], MemberQ[{9}, Mod[#, 64]] &] (* _Vincenzo Librandi_, Sep 06 2012 *)
%t Select[Range[9,11000,64],PrimeQ] (* _Harvey P. Dale_, Apr 15 2020 *)
%o (Magma) [p: p in PrimesUpTo(11000) | p mod 64 eq 9 ]; // _Vincenzo Librandi_, Sep 06 2012
%Y Cf. A000040.
%K nonn,easy
%O 1,1
%A _N. J. A. Sloane_, Jul 11 2008
|
