%I A096266
%S A096266 2,5,79,491,983,5503,8803,17443,57097,155219,343583,500179,524521,
%T A096266 1208239,1457969,2076331,2906291,2977151,3129031,4893341,8442079,
%U A096266 8560787,11156987,11596003,14947939,17922829,20545477,24597173,25593493
%N A096266 Balanced prime number records (A082080).
%t A096266 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}]
%Y A096266 Cf. A082080, A096692.
%Y A096266 Sequence in context: A038583 A082080 A127997 this_sequence A123978 A120798 
               A048187
%Y A096266 Adjacent sequences: A096263 A096264 A096265 this_sequence A096267 A096268 
               A096269
%K A096266 nonn
%O A096266 0,1
%A A096266 Robert G. Wilson v (rgwv(AT)rgwv.com), Jun 21 2004