|
Search: id:A096708
|
|
| |
|
| 157, 353, 8233, 23893, 26183, 30197, 63697, 118831, 131041, 150203, 152213, 167033, 198013, 293087, 341303, 383983
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
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: A142874 A060974 A073277 this_sequence A142833 A142478 A052028
Adjacent sequences: A096705 A096706 A096707 this_sequence A096709 A096710 A096711
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Robert G. Wilson v (rgwv(AT)rgwv.com), Jun 28 2004
|
|
|
Search completed in 0.002 seconds
|
