login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

Primes congruent to 7 mod 64.
1

%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