|
%I #14 Jul 12 2023 11:03:04
%S 2,5,79,491,983,5503,8803,17443,57097,155219,343583,500179,524521,
%T 1208239,1457969,2076331,2906291,2977151,3129031,4893341,8442079,
%U 8560787,11156987,11596003,14947939,17922829,20545477,24597173,25593493,34395139,34466101,43047541,51074711,58531043
%N Balanced prime number records (A082080).
%H Michel Marcus, <a href="/A096266/b096266.txt">Table of n, a(n) for n = 1..52</a>
%t 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}]
%Y Cf. A082080, A096692.
%K nonn
%O 1,1
%A _Robert G. Wilson v_, Jun 21 2004
%E More terms, using A082080, from _Michel Marcus_, Jul 12 2023
|
