OFFSET
1,1
LINKS
Robert Price, Table of n, a(n) for n = 1..85
EXAMPLE
607 is a member because 607 = (601 + 607 + 613)/3 =
(593 + 599 + 601 + 607 + 613 + 617 + 619)/7 = (401 + ... + 607 + ... + 823)/65.
MATHEMATICA
f[n_] := Block[{c = 0, k = 1, p = Prime[n], s = Plus @@ Table[ Prime[i], {i, n - 1, n + 1}]}, While[k != n - 1, If[s == (2k + 1)p, c++ ]; k++; s = s + Prime[n - k] + Prime[n + k]]; c]; Prime[ Select[ Range[2, 250], f[ # ] == 3 &]]
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Jun 28 2004
EXTENSIONS
a(37)-a(39) from Robert Price, Nov 29 2023
STATUS
approved