A140533 Primes congruent to 13 or 17 mod 30.

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

Author

Juri-Stepan Gerasimov, Jul 28 2008

Keywords

• nonn
• easy

Links

• Vincenzo Librandi, Table of n, a(n) for n = 1..1000

Crossrefs

Cf. A132233, A039949.

Cf. A000040.

Programs

Magma

[p: p in PrimesUpTo(3000)|p mod 30 in {13,17}]; // Vincenzo Librandi, Dec 18 2010

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 *)