|
Search: id:A096706
|
|
| |
|
| 211, 263, 349, 397, 409, 439, 709, 751, 787, 827, 1153, 1187, 1259, 1487, 1523, 1531, 2281, 2287, 2347, 2621, 3037, 3109, 3313, 3329, 3539, 3673, 4357, 4397, 4493, 4951, 4969, 4987, 5189, 5303, 5347, 5857, 6323, 6337, 7583, 7907, 7933, 8429, 8713, 8821
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
EXAMPLE
|
263 is a member because 263 = (257 + 263 + 269)/3
= (179 + 181 + 191 + 193 + 197 + 199 + 211 + 223 + 227 + 229 + 233 + 239 + 241 + 251 + 257 + 263 + 269 + 271 + 277 + 281 + 283 + 293 + 307 + 311 + 313 + 317 + 331 + 337 + 347 + 349 + 353)/31.
|
|
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, 250], f[ # ] == 2 &]]
|
|
CROSSREFS
|
Cf. A096693, A096695, A096705, A096707, A096708, A096709.
Sequence in context: A133960 A031931 A087833 this_sequence A001583 A137870 A137871
Adjacent sequences: A096703 A096704 A096705 this_sequence A096707 A096708 A096709
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Robert G. Wilson v (rgwv(AT)rgwv.com), Jun 28 2004
|
|
|
Search completed in 0.002 seconds
|
