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

Links

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

Formula

a(n) = A082080(A096266(n)).

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, A096266.

Sequence in context: A075347 A352506 A005733 * A203847 A365811 A172147

Adjacent sequences: A096689 A096690 A096691 * A096693 A096694 A096695

Keyword

nonn

Author

Robert G. Wilson v, Jun 26 2004

Extensions

a(31)-a(52) from Robert Price, Dec 02 2023

Status

approved