A096692 "Orders" where balanced prime number records (A082080) occur.
0, 1, 2, 4, 9, 10, 30, 35, 36, 56, 86, 109, 158, 195, 213, 287, 331, 373, 409, 432, 462, 579, 638, 656, 722, 749, 894, 1154, 1177, 1225, 1304, 1414, 1416, 1550, 1800, 1844, 2091, 2114, 2351, 2851, 4218, 4344, 4658, 5054, 5627, 5836, 7092, 7997, 8204, 8324, 8889, 9527
Offset: 1
Keywords
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
a(31)-a(52) from Robert Price, Dec 02 2023