|
Search: id:A104883
|
|
|
| A104883 |
|
Least number k such that k-n and k+n are both primes. |
|
+0
2
|
|
| 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; listen)
|
|
|
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 this_sequence A042956 A128217 A042948
Adjacent sequences: A104880 A104881 A104882 this_sequence A104884 A104885 A104886
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Benoit Cloitre (benoit7848c(AT)orange.fr) and Robert G. Wilson v (rgwv(AT)rgwv.com), Mar 28 2005
|
|
|
Search completed in 0.002 seconds
|
