A096692 - OEIS

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

(list; graph; refs; listen; history; text; internal format)

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: A352506 A005733 A372915 * 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