A179208 Primes prime(k) such that 2*prime(k) = prime(k-2) + prime(k+2).

11, 13, 17, 103, 107, 151, 179, 251, 409, 421, 491, 701, 709, 739, 941, 1051, 1487, 1571, 1873, 2281, 2441, 2659, 2671, 2741, 2749, 2819, 3011, 3019, 3389, 3463, 4111, 4229, 4231, 4241, 4271, 4397, 5171, 5279, 5569, 5653, 6079, 6311, 6691

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

Cf. A006562 (balanced primes).

Sequence in context: A306766 A087776 A098031 * A098423 A178339 A088561

Adjacent sequences: A179205 A179206 A179207 * A179209 A179210 A179211

Keyword

nonn

Author

Juri-Stepan Gerasimov, Jan 05 2011

Status

approved