cp's OEIS Frontend

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.

A096705 Balanced primes of index 1.

This page as a plain text file.
%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