This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A096705 #7 Nov 29 2023 16:38:16 %S A096705 5,17,29,37,71,79,89,137,149,151,179,193,227,229,257,281,359,373,383, %T A096705 419,421,433,487,491,563,577,593,631,643,653,659,677,701,733,757,823, %U A096705 877,947,953,983,991,1013,1021,1087,1091,1103,1123,1171,1193,1217,1223 %N A096705 Balanced primes of index 1. %H A096705 Robert Price, <a href="/A096705/b096705.txt">Table of n, a(n) for n = 1..4957</a> %e A096705 17 is a member because 17 = (7 + 11 + 13 + 17 + 19 + 23 + 29)/7 only. %t A096705 g[n_] := Block[{c = 0, k = 1, p = Prime[n], s = Plus @@ Table[ Prime[i], {i, n - 1, n + 1}]}, While[k != n - 1, If[s == (2k + 1)p, c++ ]; k++; s = s + Prime[n - k] + Prime[n + k]]; c]; Prime[ Select[ Range[2, 250], f[ # ] == 1 &]] %Y A096705 Cf. A096693, A096695, A096706, A096707, A096708, A096709. %K A096705 nonn %O A096705 1,1 %A A096705 _Robert G. Wilson v_, Jun 28 2004