|
|
A140533
|
|
Primes congruent to 13 or 17 mod 30.
|
|
2
|
|
|
13, 17, 43, 47, 73, 103, 107, 137, 163, 167, 193, 197, 223, 227, 257, 283, 313, 317, 347, 373, 433, 463, 467, 523, 557, 587, 613, 617, 643, 647, 673, 677, 733, 797, 823, 827, 853, 857, 883, 887, 947, 977, 1033, 1063, 1093, 1097, 1123, 1153, 1187, 1213, 1217
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MAPLE
|
A140533 := proc(n) local a; if n = 1 then 13; else a := nextprime(procname(n-1)) ; while not a mod 30 in {13, 17} do a := nextprime(a) ; end do: return a; end if; end: seq(A140533(n), n=1..80) ; # R. J. Mathar, Oct 22 2009
|
|
MATHEMATICA
|
Select[Prime[Range[300]], MemberQ[{13, 17}, Mod[#, 30]]&] (* Vincenzo Librandi, Aug 15 2012 *)
|
|
PROG
|
(Magma) [p: p in PrimesUpTo(3000)|p mod 30 in {13, 17}]; // Vincenzo Librandi, Dec 18 2010
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,easy
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|