A096266 Balanced prime number records (A082080).

2, 5, 79, 491, 983, 5503, 8803, 17443, 57097, 155219, 343583, 500179, 524521, 1208239, 1457969, 2076331, 2906291, 2977151, 3129031, 4893341, 8442079, 8560787, 11156987, 11596003, 14947939, 17922829, 20545477, 24597173, 25593493, 34395139, 34466101, 43047541, 51074711, 58531043

Offset: 1

Author

Robert G. Wilson v, Jun 21 2004

Keywords

• nonn

Links

• Michel Marcus, Table of n, a(n) for n = 1..52

Crossrefs

Cf. A082080, A096692.

Programs

Mathematica

f[n_] := Block[{k = n + 2, s = Plus @@ Table[ Prime[i], {i, 2, 2n + 2}]}, While[s != (2n + 1)Prime[k], k++; s = s - Prime[k - n - 1] + Prime[k + n]]; Prime[k]]; p = 1; Do[ q = f[n]; If[q > p, Print[n, " = ", q]; p = q], {n, 1230}]

Extensions

More terms, using A082080, from Michel Marcus, Jul 12 2023