|
| |
|
|
A096692
|
|
"Orders" where balanced prime number records (A082080) occur.
|
|
1
| |
|
|
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
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,3
|
|
|
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: A060756 A075347 A005733 * A203847 A172147 A030194
Adjacent sequences: A096689 A096690 A096691 * A096693 A096694 A096695
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Robert G. Wilson v (rgwv(AT)rgwv.com), Jun 26 2004
|
| |
|
|
