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,1

Links

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

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. A132233, A039949.

Cf. A000040.

Sequence in context: A125524 A156553 A248474 * A180527 A076789 A089577

Adjacent sequences: A140530 A140531 A140532 * A140534 A140535 A140536

Keyword

nonn,easy

Author

Juri-Stepan Gerasimov, Jul 28 2008

Status

approved