A336299 (Least prime > prime(n)/2) - (greatest prime < prime(n)/2).

1, 2, 2, 2, 4, 4, 2, 4, 4, 2, 4, 4, 6, 6, 2, 2, 6, 6, 6, 4, 2, 4, 6, 6, 6, 6, 6, 6, 6, 6, 4, 4, 6, 6, 6, 4, 6, 6, 8, 8, 8, 8, 4, 4, 4, 4, 14, 14, 14, 14, 14, 14, 4, 6, 6, 6, 2, 10, 10, 10, 6, 6, 6, 6, 4, 6, 6, 6, 6, 2, 10, 10, 10, 2, 4, 2, 12, 12, 12, 12, 12

Offset

3,2

Links

Table of n, a(n) for n=3..83.

Example

Prime(3)/2 = 2.5, so that a(3) = 3 - 2 = 1.
Prime(4)/2 = 3.5, so that a(4) = 5 - 3 = 2.

Mathematica

z = 120; t = Table[NextPrime[Prime[n]/2], {n, 3, z}]; (* cf. A039734, A079953 *)
u = NextPrime[t, -1]  (* A336298 *)
t - u  (* A336299 *)

Prog

(PARI) a(n) = my(x=prime(n)/2); nextprime(x) - precprime(x); \\ Michel Marcus, Nov 18 2020

Crossrefs

Cf. A000040, A039734, A336298.

Sequence in context: A192095 A363710 A105080 * A206424 A117728 A172309

Adjacent sequences: A336296 A336297 A336298 * A336300 A336301 A336302

Keyword

nonn

Author

Clark Kimberling, Nov 16 2020

Status

approved