OFFSET
1,1
COMMENTS
All these primes are congruent to 5 mod 12.
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
MATHEMATICA
aa = {}; k = 17; Do[If[PrimeQ[(k + Prime[n])/2], AppendTo[aa, Prime[n]]], {n, 1, 500}]; aa
Select[Prime[Range[500]], PrimeQ[(17+#)/2]&] (* Harvey P. Dale, Jan 02 2013 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Artur Jasinski, Oct 11 2008
STATUS
approved