OFFSET
1,1
COMMENTS
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
EXAMPLE
1207 is an interprime and 1207/17 = 71 is prime.
MATHEMATICA
s=17; Select[Table[(Prime[n+1]+Prime[n])/2, {n, 2, 4000}], PrimeQ[ #/s]&]
Select[Mean[#]&/@Partition[Prime[Range[9000]], 2, 1], PrimeQ[#/17]&] (* Harvey P. Dale, Apr 06 2016 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Zak Seidov, Sep 12 2002
STATUS
approved