A079582 Least positive k such that the distance from k to closest prime = n.

2, 1, 9, 26, 93, 118, 119, 120, 531, 532, 897, 1140, 1339, 1340, 1341, 1342, 1343, 1344, 9569, 15702, 15703, 15704, 15705, 19632, 19633, 19634, 19635, 31424, 31425, 31426, 31427, 31428, 31429, 31430, 31431, 31432, 31433, 155958, 155959, 155960, 155961

Offset

0,1

Comments

This sequence only differs from A077019 for n = 2: a(2) = 9 whereas A077019(2) = 0. - Rémy Sigrist, Dec 19 2019

Links

Table of n, a(n) for n=0..40.

Mathematica

a[n_] := Block[{s = 1}, While[ PrimeQ[s] || Min[s - NextPrime[s, -1], NextPrime[s] - s] != n, s++ ]; s]; a[0] = 2; Table[a[n], {n, 0, 40}]

Prog

(PARI) a(n)=if(n<0, 0, s=1; while(abs(n-min(abs(precprime(s)-s), abs(nextprime(s)-s)))>0, s++); s)

Crossrefs

Cf. A051699, A077019.

Sequence in context: A094633 A261060 A144244 * A259872 A320534 A012892

Adjacent sequences: A079579 A079580 A079581 * A079583 A079584 A079585

Keyword

nonn

Author

Benoit Cloitre, Jan 26 2003

Extensions

More terms from Robert G. Wilson v, Jan 27 2003

Name clarified by Rémy Sigrist, Dec 19 2019

Status

approved