OFFSET
1,1
COMMENTS
EXAMPLE
1016 is an interprime and 1016/8 = 127 is prime.
MATHEMATICA
s=8; Select[Table[(Prime[n+1]+Prime[n])/2, {n, 2, 1000}], PrimeQ[ #/s]&]
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Zak Seidov, Sep 12 2002
STATUS
approved