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

Author

Benoit Cloitre, Jan 26 2003

Keywords

• nonn

Comments

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

Crossrefs

Cf. A051699, A077019.

Programs

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}]

PARI

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

Extensions

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

Name clarified by Rémy Sigrist, Dec 19 2019