A127579 Primes of the form 64n+63.
127, 191, 383, 1087, 1151, 1279, 1471, 1663, 2111, 2239, 2687, 2879, 3391, 3583, 3967, 4159, 4799, 5119, 5503, 6079, 6143, 6271, 6719, 6911, 7039, 7103, 7487, 8191, 8447, 8831, 9151, 9343, 9791, 10111, 10303, 10559, 10687, 11071, 11519, 11839
Offset: 1
Links
- Vincenzo Librandi, Table of n, a(n) for n = 1..1000
Programs
-
Magma
[p: p in PrimesUpTo(12000) | p mod 64 eq 63]; // Vincenzo Librandi, Aug 25 2012
-
Mathematica
a = {}; Do[If[PrimeQ[64n + 63], AppendTo[a, 64n + 63]], {n, 1, 200}]; a Select[Prime[Range[4000]], MemberQ[{63}, Mod[#, 64]] &] (* Vincenzo Librandi, Aug 25 2012 *) Select[Range[63,12000,64],PrimeQ] (* Harvey P. Dale, Mar 01 2015 *)
-
PARI
forprime(p=2,1e6,if(bitand(p,63)==63,print1(p", "))) \\ Charles R Greathouse IV, May 15 2013