login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A339385 a(n) = (smallest prime >= A002182(n)) - (largest prime <= A002182(n)). 1
0, 2, 2, 2, 6, 6, 6, 2, 14, 2, 2, 8, 8, 14, 18, 24, 18, 12, 2, 12, 14, 12, 30, 32, 18, 24, 2, 40, 2, 30, 26, 30, 18, 14, 34, 14, 40, 18, 20, 40, 34, 36, 18, 20, 42, 120, 90, 24, 34, 52, 44, 72, 20, 20, 38, 44, 42, 54, 24, 60, 72, 20, 72, 30, 20, 20, 24, 70 (list; graph; refs; listen; history; text; internal format)
OFFSET

2,2

COMMENTS

The prime gap size at the n-th highly composite number A002182(n), for n > 2.

The obtained arithmetic mean of the normalized gap size, i.e., a(n)/log(A002182(n)), for the terms 3..10000 is 3.030.

From Gauss's prime counting function approximation, the expected gap size should be approximately log(A002182), however, the observed values seem to be closer to log(A002182(n)^3).

The maximum merit (= a(n)/log(prevprime(A002182))) in the range 3..10000 is 12.96 and is obtained for n = 6911.

LINKS

A.H.M. Smeets, Table of n, a(n) for n = 2..10000

FORMULA

a(n) = A324385(n)+A141345(n), for n > 1.

MATHEMATICA

s = {}; dm = 1; Do[d = DivisorSigma[0, n]; If[d > dm, dm = d; AppendTo[s, NextPrime[n - 1] - NextPrime[n + 1, -1]]], {n, 2, 10^6}]; s (* Amiram Eldar, Dec 02 2020 *)

{0}~Join~Map[Subtract @@ NextPrime[#, {1, -1}] &, Import["https://oeis.org/A002182/b002182.txt", "Data"][[3 ;; 10^3, -1]] ] (* Michael De Vlieger, Dec 10 2020 *)

PROG

(PARI) lista(nn) = my(r=1); forstep(n=2, nn, 2, if(numdiv(n)>r, r=numdiv(n); print1(nextprime(n) - precprime(n), ", "))); \\ Michel Marcus, Dec 03 2020

CROSSREFS

Cf. A005250, A141345, A324385.

Sequence in context: A283673 A198472 A171698 * A080969 A214078 A155453

Adjacent sequences:  A339382 A339383 A339384 * A339386 A339387 A339388

KEYWORD

nonn

AUTHOR

A.H.M. Smeets, Dec 02 2020

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified September 27 15:44 EDT 2021. Contains 347691 sequences. (Running on oeis4.)