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,1

Links

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

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}]

Crossrefs

Cf. A082080, A096692.

Sequence in context: A038583 A082080 A127997 * A123978 A303482 A360503

Adjacent sequences: A096263 A096264 A096265 * A096267 A096268 A096269

Keyword

nonn

Author

Robert G. Wilson v, Jun 21 2004

Extensions

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

Status

approved