|
Search: id:A096692
|
|
|
| A096692 |
|
"Orders" where balanced prime number records (A082080) occur. |
|
+0
2
|
|
| 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; listen)
|
|
|
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 this_sequence A030194 A101255 A047348
Adjacent sequences: A096689 A096690 A096691 this_sequence A096693 A096694 A096695
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Robert G. Wilson v (rgwv(AT)rgwv.com), Jun 26 2004
|
|
|
Search completed in 0.002 seconds
|
