A359300 a(n) = (distance from n to nearest prime >= n) - (distance from n to nearest prime <= n).

0, 0, 0, 0, 0, 0, 2, 0, -2, 0, 0, 0, 2, 0, -2, 0, 0, 0, 2, 0, -2, 0, 4, 2, 0, -2, -4, 0, 0, 0, 4, 2, 0, -2, -4, 0, 2, 0, -2, 0, 0, 0, 2, 0, -2, 0, 4, 2, 0, -2, -4, 0, 4, 2, 0, -2, -4, 0, 0, 0, 4, 2, 0, -2, -4, 0, 2, 0, -2, 0, 0, 0, 4, 2, 0, -2, -4, 0, 2, 0

Offset

2,7

Links

Table of n, a(n) for n=2..81.

Formula

a(n) = A007917(n) + A007918(n) - 2*n. - Bernard Schott, Jan 01 2023

Example

a(8) = 2 because (11-8) - (8-7) = 2.

Maple

f:= n -> nextprime(n-1) + prevprime(n+1) - 2*n:
map(f, [$2..100]); # Robert Israel, Jan 03 2023

Mathematica

u[n_] := If[PrimeQ[n], n, NextPrime[n]];
v[n_] := If[PrimeQ[n], n, NextPrime[n, -1]];
Table[u[n] - n - (n - v[n]), {n, 2, 350}]

Crossrefs

Cf. A000040, A007917, A007918, A008578, A359298, A359299.

Sequence in context: A197629 A198255 A290542 * A029834 A318715 A202385

Adjacent sequences: A359297 A359298 A359299 * A359301 A359302 A359303

Keyword

sign

Author

Clark Kimberling, Jan 01 2023

Status

approved