|
%I #15 Sep 08 2022 08:45:37
%S 7,71,199,263,647,839,967,1031,1223,1543,1607,2311,2503,2887,3079,
%T 3271,3463,3527,3719,3847,3911,4231,4423,4679,4871,4999,5639,6151,
%U 6343,6599,6791,6983,7559,7687,7879,8263,8647,8839,9479,10247,10567,10631,11399,11527
%N Primes congruent to 7 mod 64.
%H Vincenzo Librandi, <a href="/A142928/b142928.txt">Table of n, a(n) for n = 1..1000</a>
%t lst={};Do[p=Prime[n];If[Mod[p,64]==7,AppendTo[lst,p]],{n,7!}];lst (* _Vladimir Joseph Stephan Orlovsky_, Feb 26 2009 *)
%t Select[Prime[Range[1800]], MemberQ[{7}, Mod[#, 64]] &] (* _Vincenzo Librandi_, Sep 06 2012 *)
%t Select[Range[7,12000,64],PrimeQ] (* _Harvey P. Dale_, May 26 2015 *)
%o (Magma) [p: p in PrimesUpTo(12000) | p mod 64 eq 7 ]; // _Vincenzo Librandi_, Sep 06 2012
%Y Cf. A000040.
%K nonn,easy
%O 1,1
%A _N. J. A. Sloane_, Jul 11 2008
|
