OFFSET
1,1
LINKS
Robert Price, Table of n, a(n) for n = 1..4957
EXAMPLE
17 is a member because 17 = (7 + 11 + 13 + 17 + 19 + 23 + 29)/7 only.
MATHEMATICA
g[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[ # ] == 1 &]]
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Jun 28 2004
STATUS
approved