OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
MATHEMATICA
Transpose[Select[Partition[Prime[Range[300]], 5, 1], (First[#]+Last[#])/2 == #[[3]]&]][[3]] (* Harvey P. Dale, Feb 16 2014 *)
PROG
(Sage)
def is_A179208(n):
k = prime_pi(n)
return is_prime(n) and 2*n == nth_prime(k-2)+nth_prime(k+2) # D. S. McNeil, Jan 08 2011
CROSSREFS
KEYWORD
nonn
AUTHOR
Juri-Stepan Gerasimov, Jan 05 2011
STATUS
approved