This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A096266 #14 Jul 12 2023 11:03:04 %S A096266 2,5,79,491,983,5503,8803,17443,57097,155219,343583,500179,524521, %T A096266 1208239,1457969,2076331,2906291,2977151,3129031,4893341,8442079, %U A096266 8560787,11156987,11596003,14947939,17922829,20545477,24597173,25593493,34395139,34466101,43047541,51074711,58531043 %N A096266 Balanced prime number records (A082080). %H A096266 Michel Marcus, <a href="/A096266/b096266.txt">Table of n, a(n) for n = 1..52</a> %t A096266 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 A096266 Cf. A082080, A096692. %K A096266 nonn %O A096266 1,1 %A A096266 _Robert G. Wilson v_, Jun 21 2004 %E A096266 More terms, using A082080, from _Michel Marcus_, Jul 12 2023