OFFSET
1,1
COMMENTS
LINKS
David A. Corneth, Table of n, a(n) for n = 1..10000
EXAMPLE
7646 is an interprime and 7646/2 = 3823 is prime.
MATHEMATICA
s=2; Select[Table[(Prime[n+1]+Prime[n])/2, {n, 2, 1000}], PrimeQ[ #/s]&]
PROG
(PARI) first(n, {m=2}) = {my(res = List(), p); forprime(p=2, oo, if(precprime(m*p) + nextprime(m*p) == 2*m*p, listput(res, m*p); if(#res>=n, return(res))))} \\ David A. Corneth, Jul 26 2017
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Zak Seidov, Sep 12 2002
STATUS
approved