login
A129484
Primes of the form 17k + 1.
11
103, 137, 239, 307, 409, 443, 613, 647, 919, 953, 1021, 1123, 1259, 1327, 1361, 1429, 1531, 1667, 1871, 1973, 2143, 2347, 2381, 2551, 2687, 2789, 2857, 3061, 3163, 3299, 3469, 3571, 3673, 3877, 3911, 4013, 4217, 4421, 4523, 4591, 4931, 4999, 5101, 5237
OFFSET
1,1
LINKS
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
KEYWORD
easy,nonn
AUTHOR
Cino Hilliard, May 29 2007
STATUS
approved