1,1

124991 is a member because 124991 = (124673 + ... + 125329)/59

= (124543 + ... + 125423)/75 = (124193 + ... + 125777)/137 = (124133 + ... + 125887)/151

= (123931 + ... + 126031)/181.

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, 25797], f[ # ] == 5 &]]

Cf. A096693, A096695, A096705, A096706, A096707, A096708.

Sequence in context: A142134 A142849 A138267 this_sequence A025390 A045257 A025381

Adjacent sequences: A096706 A096707 A096708 this_sequence A096710 A096711 A096712

nonn

Robert G. Wilson v (rgwv(AT)rgwv.com), Jun 28 2004