|
| |
|
|
A104883
|
|
Least number k such that k-n and k+n are both primes.
|
|
1
| |
|
|
4, 5, 8, 7, 24, 11, 54, 51, 22, 117, 222, 19, 114, 87, 46, 207, 216, 61, 258, 291, 128, 591, 336, 43, 306, 423, 136, 519, 492, 97, 888, 951, 146, 537, 318, 163, 1656, 561, 238, 699, 732, 191, 864, 1365, 286, 1353, 1674, 229, 1422, 1671, 802, 2451, 876, 283, 576, 2577
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
MATHEMATICA
| f[n_] := Block[{k}, If[ OddQ[n], k = 2, k = 1]; While[ !PrimeQ[n - k] || !PrimeQ[n + k], k += 2]; k]; t = Table[ f[n], {n, 4, 2600}]; u = Table[0, {60}]; Do[a = t[[n]]; If[a < 61 && u[[a]] == 0, u[[a]] = n + 3], {n, 2597}]; u
|
|
|
CROSSREFS
| Cf. A082467, records in A104884.
Sequence in context: A021222 A132023 A107758 * A154885 A042956 A128217
Adjacent sequences: A104880 A104881 A104882 * A104884 A104885 A104886
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Benoit Cloitre (benoit7848c(AT)orange.fr) and Robert G. Wilson v (rgwv(AT)rgwv.com), Mar 28 2005
|
| |
|
|
