login
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
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
Cf. A000040.
Sequence in context: A125524 A156553 A248474 * A180527 A076789 A089577
KEYWORD
nonn,easy
AUTHOR
STATUS
approved