|
%I #12 Sep 08 2022 08:45:29
%S 127,191,383,1087,1151,1279,1471,1663,2111,2239,2687,2879,3391,3583,
%T 3967,4159,4799,5119,5503,6079,6143,6271,6719,6911,7039,7103,7487,
%U 8191,8447,8831,9151,9343,9791,10111,10303,10559,10687,11071,11519,11839
%N Primes of the form 64n+63.
%H Vincenzo Librandi, <a href="/A127579/b127579.txt">Table of n, a(n) for n = 1..1000</a>
%t a = {}; Do[If[PrimeQ[64n + 63], AppendTo[a, 64n + 63]], {n, 1, 200}]; a
%t Select[Prime[Range[4000]], MemberQ[{63}, Mod[#, 64]] &] (* _Vincenzo Librandi_, Aug 25 2012 *)
%t Select[Range[63,12000,64],PrimeQ] (* _Harvey P. Dale_, Mar 01 2015 *)
%o (Magma) [p: p in PrimesUpTo(12000) | p mod 64 eq 63]; // _Vincenzo Librandi_, Aug 25 2012
%o (PARI) forprime(p=2,1e6,if(bitand(p,63)==63,print1(p", "))) \\ _Charles R Greathouse IV_, May 15 2013
%Y Cf. A127575, A127576, A127577, A127578, A127580, A127581.
%K nonn,easy
%O 1,1
%A _Artur Jasinski_, Jan 19 2007
|
