login
A126239
Primes of the form p = prime(n+1) such that prime(n) = (prime(n+3)+prime(n-1))/2.
2
1013, 2791, 4003, 4933, 5437, 5503, 5521, 5843, 6037, 6529, 7109, 7823, 8087, 8161, 8363, 10093, 17021, 18253, 18307, 19753, 21143, 22777, 25031, 25343, 25933, 26683, 27277, 27407, 27793, 28433, 28621, 33151, 33749, 35507, 35527, 36457, 36781
OFFSET
1,1
MATHEMATICA
Prime@Select[Range[3, 4000], 2Prime[ # - 1] == Prime[ # - 2] + Prime[ # + 2] &] (* Ray Chandler, Dec 27 2006 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Artur Jasinski, Dec 21 2006
EXTENSIONS
Edited and extended by Ray Chandler, Dec 27 2006
STATUS
approved