login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A341843 Number of sexy consecutive prime pairs below 2^n. 1
0, 0, 0, 0, 1, 4, 7, 13, 25, 45, 80, 136, 251, 443, 784, 1377, 2420, 4312, 7756, 14106, 25554, 46776, 85774, 157325, 290773, 538520, 1000321, 1861364, 3473165, 6493997, 12167342, 22851920, 42987462, 81018661, 152945700, 289206487, 547722346, 1038786862 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,6

COMMENTS

a(n) is the number of pairs of consecutive sexy primes {A023201, A046117} less than 2^n.

For each n from 9 through 48, the most frequently occurring difference between consecutive primes is 6. On p. 108 of the article by Odlyzko et al., the authors estimate that around n=117, the jumping champion (i.e., the most frequently occurring difference between consecutive primes) becomes 30, and around n=1412 it becomes 210. Successive jumping champions are conjecturaly the primorial numbers A002110.

Data for n >= 15 taken from Marek Wolf's prime gaps computation.

For the number of pairs of consecutive primes below 10^n having a difference of 6, see A093738.

For the number of sexy primes less than 10^n, see A080841.

There are 8 known cases in which a power of 2 falls between the members of the sexy consecutive prime pair (see A220951), but if a pair (p, p+6) is such that p < 2^n < p+6, that pair is not counted in a(n).

LINKS

Artur Jasinski, Table of n, a(n) for n = 1..48

Andrew Odlyzko, Michael Rubinstein, Marek Wolf, Jumping-champions, Experimental Mathematics 8:2, pp. 108-118, 1999.

Eric Weisstein's World of Mathematics, Sexy Primes. [The definition in this webpage is unsatisfactory, because it defines a "sexy prime" as a pair of primes.- N. J. A. Sloane, Mar 07 2021].

Marek Wolf, Counted prime gaps for range x from 2^15 to 2^48.

EXAMPLE

a(6)=4 because 2^6=64 and we have 4 sexy consecutive prime pairs less than 64: {23,29}, {31,37}, {47,53}, {53,59}.

MATHEMATICA

pp = {}; Do[kk = 0; Do[If[Prime[m + 1] - Prime[m] == 6, kk = kk + 1], {m, 2, PrimePi[2^n] - 1}]; AppendTo[pp, kk], {n, 4, 20}]; pp

CROSSREFS

Cf. A002110, A023201, A046117, A080841, A098428, A104037, A220951, A226068, A227346.

Sequence in context: A265160 A090854 A039694 * A248098 A229439 A000288

Adjacent sequences: A341840 A341841 A341842 * A341844 A341845 A341846

KEYWORD

nonn,hard

AUTHOR

Artur Jasinski, Feb 21 2021

STATUS

approved

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

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 26 14:32 EDT 2023. Contains 361549 sequences. (Running on oeis4.)