OFFSET
1,1
LINKS
Daniel Starodubtsev, Table of n, a(n) for n = 1..10000
MATHEMATICA
Select[Range[1, 5000, 17], PrimeQ[#]&] (* Vladimir Joseph Stephan Orlovsky, Apr 03 2011 *)
PROG
(PARI) cicadayear(n) = forstep(x=1, n, 17, if(isprime(x), print1(x", ")))
(Magma) [n: n in [1..5000 by 17] | IsPrime(n)] ; // Vincenzo Librandi, Apr 04 2011
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Cino Hilliard, May 29 2007
STATUS
approved