OFFSET
1,1
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
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 *)
PROG
(Magma) [p: p in PrimesUpTo(12000) | p mod 64 eq 63]; // Vincenzo Librandi, Aug 25 2012
(PARI) forprime(p=2, 1e6, if(bitand(p, 63)==63, print1(p", "))) \\ Charles R Greathouse IV, May 15 2013
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Artur Jasinski, Jan 19 2007
STATUS
approved