OFFSET
1,1
COMMENTS
Also primes congruent to 31 mod 34.
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
MATHEMATICA
Select[Range[17, 15000, 17]-3, PrimeQ] (* Vladimir Joseph Stephan Orlovsky, May 18 2011 *)
Select[Prime[Range[800]], MemberQ[{31}, Mod[#, 34]] &] (* Vincenzo Librandi, Aug 15 2012 *)
PROG
(Magma) [p: p in PrimesUpTo(6000) | p mod 34 eq 31 ]; // Vincenzo Librandi, Aug 15 2012
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Juri-Stepan Gerasimov, Jun 28 2008
EXTENSIONS
Corrected and extended by N. J. A. Sloane, Jul 11 2008
Edited by N. J. A. Sloane at the suggestion of R. J. Mathar, Jul 20 2008
STATUS
approved