A096708 - OEIS

A096708

Balanced primes (A090403) of index 4.

157, 353, 8233, 23893, 26183, 30197, 63697, 118831, 131041, 150203, 152213, 167033, 198013, 293087, 341303, 383983, 494051, 494723, 534007, 551569, 601949, 603541, 629203, 666697, 671287, 679417, 688907, 768203, 787207, 796867, 826039

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,1

LINKS

Table of n, a(n) for n=1..31.

EXAMPLE

353 is a member because 353 = (281 + ...353 + ... + 421)/23

= (271 + .. + 353 + ... + 433)/27 = (241 + ... + 353 + ... + 461)/37 = (227 + ... + 353 + ... + 487)/45.

MATHEMATICA

f[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, 25797], f[ # ] == 4 &]]

CROSSREFS

Cf. A096693, A096695, A096705, A096706, A096707, A096709.

Sequence in context: A060974 A073277 A180233 * A142833 A142478 A052028

Adjacent sequences: A096705 A096706 A096707 * A096709 A096710 A096711

KEYWORD

nonn

AUTHOR

Robert G. Wilson v, Jun 28 2004

EXTENSIONS

a(17)-a(31) from Donovan Johnson, Apr 09 2010

STATUS

approved