login
A142933
Primes congruent to 17 mod 64.
1
17, 337, 401, 593, 977, 1297, 1361, 1489, 1553, 1873, 2129, 2833, 2897, 3089, 3217, 3793, 4049, 4177, 4241, 4561, 4817, 5009, 5393, 5521, 6353, 6481, 6673, 6737, 7057, 7121, 8017, 8081, 8209, 8273, 8849, 9041, 10193, 10321, 10513, 12049, 12113, 12241, 12433
OFFSET
1,1
LINKS
MATHEMATICA
lst={}; Do[p=Prime[n]; If[Mod[p, 64]==17, AppendTo[lst, p]], {n, 7!}]; lst (* Vladimir Joseph Stephan Orlovsky, Feb 27 2009 *)
Select[Prime[Range[1900]], MemberQ[{17}, Mod[#, 64]] &] (* Vincenzo Librandi, Sep 06 2012 *)
Select[Range[17, 13000, 64], PrimeQ] (* Harvey P. Dale, Jun 11 2017 *)
PROG
(Magma) [p: p in PrimesUpTo(13000) | p mod 64 eq 17 ]; // Vincenzo Librandi, Sep 06 2012
CROSSREFS
Cf. A000040.
Sequence in context: A099275 A299706 A318597 * A180676 A136270 A009046
KEYWORD
nonn,easy
AUTHOR
N. J. A. Sloane, Jul 11 2008
STATUS
approved