OFFSET
1,1
COMMENTS
LINKS
David A. Corneth, Table of n, a(n) for n = 1..10001
EXAMPLE
1313 is an interprime and 1313/13 = 101 is prime.
MATHEMATICA
s=13; Select[Table[(Prime[n+1]+Prime[n])/2, {n, 2, 4000}], PrimeQ[ #/s]&]
Select[Mean/@Partition[Prime[Range[2, 8500]], 2, 1], PrimeQ[#/13]&] (* Harvey P. Dale, Apr 29 2012 *)
PROG
(PARI) first(n) = {my(res = List(), p); forprime(p=2, oo, if(precprime(13*p) + nextprime(13*p) == 26*p, listput(res, 13*p); if(#res>=n, return(res))))} \\ David A. Corneth, Jul 26 2017
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Zak Seidov, Sep 12 2002
STATUS
approved