A070046 -id:A070046 - cp's OEIS frontend

A376759 Number of composite numbers c with n < c <= 2*n.

0, 1, 2, 2, 4, 4, 5, 6, 6, 6, 8, 8, 10, 11, 11, 11, 13, 14, 15, 16, 16, 16, 18, 18, 19, 20, 20, 21, 23, 23, 24, 25, 26, 26, 27, 27, 28, 29, 30, 30, 32, 32, 34, 35, 35, 36, 38, 39, 39, 40, 40, 40, 42, 42, 42, 43, 43, 44, 46, 47, 49, 50, 51, 51, 52, 52, 54, 55, 55, 55, 57, 58, 60, 61, 61, 61, 62, 63, 64, 65, 66, 66, 68, 68, 69, 70, 70, 71, 73, 73, 73, 74, 75, 76, 77, 77

Offset: 1

N. J. A. Sloane, Oct 20 2024

nonn

This completes the set of four: A307912, A376759, A307989, and A075084. Since it is not clear which ones are the most important, and they are easily confused, all four are now in the OEIS.

N. J. A. Sloane, Table of n, a(n) for n = 1..20000

Related sequences:
Primes (p) and composites (c): A000040, A002808, A000720, A065855.
Primes between p(n) and 2*p(n): A063124, A070046; between c(n) and 2*c(n): A376761; between n and 2*n: A035250, A060715, A077463, A108954.
Composites between p(n) and 2*p(n): A246514; between c(n) and 2*c(n): A376760; between n and 2*n: A075084, A307912, A307989, A376759.

chi := proc(n) if n <= 3 then 0 else n - numtheory:-pi(n) - 1; fi; end; # A065855
A376759 := proc(n) chi(2*n) - chi(n); end;
a := [seq(A376759(n),n=1..120)];

Table[PrimePi[n] - PrimePi[2*n] + n, {n, 100}] (* Paolo Xausa, Oct 22 2024 *)

from sympy import primepi
def A376759(n): return n+primepi(n)-primepi(n<<1) # Chai Wah Wu, Oct 20 2024

a(n) = A000720(n) - A000720(2*n) + n. - Paolo Xausa, Oct 22 2024

A246514 Number of composite numbers between prime(n) and 2*prime(n) exclusive.

Original entry on oeis.org

0, 1, 3, 4, 7, 9, 12, 14, 17, 22, 23, 27, 31, 33, 37, 41, 45, 48, 53, 56, 59, 63, 67, 72, 77, 80, 83, 87, 90, 94, 103, 107, 111, 113, 121, 124, 128, 134, 138, 144, 148, 150, 158, 160, 164, 166, 175, 184, 188, 190, 193, 199, 201, 209, 214, 219, 226, 228, 234

Offset: 1

Odimar Fabeny, Aug 28 2014

			2 P 4 = 0,
3 4 P 6 = 1,
5 6 P 8 9 10 = 3,
7 8 9 10 P 12 P 14 = 4,
11 12 P 14 15 16 P 18 P 20 21 22 = 7
and so on.

Jens Kruse Andersen, Table of n, a(n) for n = 1..10000

Related sequences:
Primes (p) and composites (c): A000040, A002808, A000720, A065855.
Primes between p(n) and 2*p(n): A063124, A070046; between c(n) and 2*c(n): A376761; between n and 2*n: A035250, A060715, A077463, A108954.
Composites between p(n) and 2*p(n): A246514; between c(n) and 2*c(n): A376760; between n and 2*n: A075084, A307912, A307989, A376759.

A246515 := proc(n) local p;  p:=ithprime(n); n - 1 + p - numtheory:-pi(2*p - 1); end; # N. J. A. Sloane, Oct 20 2024
[seq(A246515(n),n=1..120)];

Table[Prime[n] - PrimePi[2*Prime[n]] + n - 1, {n, 100}] (* Paolo Xausa, Oct 22 2024 *)

s=[]; forprime(p=2, 1000, n=0; for(q=p+1, 2*p-1, if(!isprime(q), n++)); s=concat(s, n)); s \\ Colin Barker, Aug 28 2014

a(n)=prime(n)+n-1-primepi(2*prime(n))
vector(100, n, a(n)) \\ Faster program. Jens Kruse Andersen, Aug 28 2014

from sympy import prime, primepi
def A246514(n): return (m:=prime(n))+n-1-primepi(m<<1) # Chai Wah Wu, Oct 22 2024

a(n) + A070046(n) = number of numbers between prime(n) and 2*prime(n), which is prime(n)-1. - N. J. A. Sloane, Aug 28 2014

More terms from Colin Barker, Aug 28 2014

A307912 a(n) = n - 1 - pi(2*n-1) + pi(n), where pi is the prime counting function.

Original entry on oeis.org

0, 0, 1, 1, 3, 3, 4, 5, 5, 5, 7, 7, 9, 10, 10, 10, 12, 13, 14, 15, 15, 15, 17, 17, 18, 19, 19, 20, 22, 22, 23, 24, 25, 25, 26, 26, 27, 28, 29, 29, 31, 31, 33, 34, 34, 35, 37, 38, 38, 39, 39, 39, 41, 41, 41, 42, 42, 43, 45, 46, 48, 49, 50, 50, 51, 51, 53, 54

Offset: 1

Wesley Ivan Hurt, May 09 2019

For n > 1, a(n) is the number of composites in the closed interval [n+1, 2n-1].

a(n) is also the number of composites appearing among the largest parts of the partitions of 2n into two distinct parts.

			a(7) = 4; there are 4 composites in the closed interval [8, 13]: 8, 9, 10 and 12.

N. J. A. Sloane, Table of n, a(n) for n = 1..20000
Index entries for sequences related to partitions

Related sequences:
Primes (p) and composites (c): A000040, A002808, A000720, A065855.
Primes between p(n) and 2*p(n): A063124, A070046; between c(n) and 2*c(n): A376761; between n and 2*n: A035250, A060715, A077463, A108954.
Composites between p(n) and 2*p(n): A246514; between c(n) and 2*c(n): A376760; between n and 2*n: A075084, A307912, A307989, A376759.

chi := proc(n) if n <= 3 then 0 else n - numtheory:-pi(n) - 1; fi; end; # A065855
A307912 := proc(n) chi(2*n-1) - chi(n); end;
A := [seq(A307912(n),n=1..120)]; # N. J. A. Sloane, Oct 20 2024

Table[n - 1 - PrimePi[2 n - 1] + PrimePi[n], {n, 100}]

from sympy import primepi
def A307912(n): return n+primepi(n)-primepi((n<<1)-1)-1 # Chai Wah Wu, Oct 20 2024

a(n) = n - 1 - A060715(n).

a(n) = n - 1 - A000720(2*n-1) + A000720(n).

A307989 a(n) = n - pi(2*n) + pi(n-1), where pi is the prime counting function.

Original entry on oeis.org

0, 0, 1, 2, 3, 4, 4, 6, 6, 6, 7, 8, 9, 11, 11, 11, 12, 14, 14, 16, 16, 16, 17, 18, 19, 20, 20, 21, 22, 23, 23, 25, 26, 26, 27, 27, 27, 29, 30, 30, 31, 32, 33, 35, 35, 36, 37, 39, 39, 40, 40, 40, 41, 42, 42, 43, 43, 44, 45, 47, 48, 50, 51, 51, 52, 52, 53, 55

Offset: 1

Wesley Ivan Hurt, May 09 2019

a(n) is the number of composites in the closed interval [n, 2n-1].

a(n) is also the number of composites among the largest parts of the partitions of 2n into two parts.

			a(7) = 4; There are 7 partitions of 2*7 = 14 into two parts (13,1), (12,2), (11,3), (10,4), (9,5), (8,6), (7,7). Among the largest parts 12, 10, 9 and 8 are composite, so a(7) = 4.

N. J. A. Sloane, Table of n, a(n) for n = 1..20000
Index entries for sequences related to partitions

Cf. A000720, A035250.
Related sequences:
Primes (p) and composites (c): A000040, A002808, A000720, A065855.
Primes between p(n) and 2*p(n): A063124, A070046; between c(n) and 2*c(n): A376761; between n and 2*n: A035250, A060715, A077463, A108954.
Composites between p(n) and 2*p(n): A246514; between c(n) and 2*c(n): A376760; between n and 2*n: A075084, A307912, A307989, A376759.

chi := proc(n) if n <= 3 then 0 else n - numtheory:-pi(n) - 1; fi; end; # A065855
A307989 := proc(n) chi(2*n-1) - chi(n-1); end;
a := [seq(A307989(n),n=1..120)];

Table[n - PrimePi[2 n] + PrimePi[n - 1], {n, 100}]

from sympy import primepi
def A307989(n): return n+primepi(n-1)-primepi(n<<1) # Chai Wah Wu, Oct 20 2024

a(n) = n - A035250(n).

a(n) = n - A000720(2*n) + A000720(n-1).

A376760 Let c(n) = A002808(n) denote the n-th composite number; a(n) = number of composite numbers c with c(n) <= c <= 2*c(n).

Original entry on oeis.org

3, 5, 7, 7, 7, 9, 12, 12, 12, 15, 17, 17, 17, 19, 20, 21, 21, 22, 24, 26, 27, 27, 28, 28, 30, 31, 31, 33, 36, 36, 37, 40, 40, 41, 41, 41, 43, 43, 44, 44, 45, 48, 51, 52, 52, 53, 53, 56, 56, 56, 59, 62, 62, 62, 63, 64, 66, 67, 67, 69, 70, 71, 71, 72, 74, 74, 75, 76, 77, 78, 78, 80, 80, 80, 83, 86, 87, 87, 90, 93, 94, 94, 96, 96, 97, 97, 98, 99, 99, 99, 100, 101, 102, 103

Offset: 1

N. J. A. Sloane, Oct 22 2024

nonn

There are three other versions: composite c with c(n) < c < 2*c(n): a(n)-2; c(n) <= c < 2*c(n): a(n) - 1; and c(n) < c <= 2*c(n): also a(n) - 1.

			The 5th composite number is 10, and 10, 12, 14, 15, 16, 18, 20 are composite, so a(5) = 7.

N. J. A. Sloane, Table of n, a(n) for n = 1..20000

Related sequences:
Primes (p) and composites (c): A000040, A002808, A000720, A065855.
Primes between p(n) and 2*p(n): A063124, A070046; between c(n) and 2*c(n): A376761; between n and 2*n: A035250, A060715, A077463, A108954.
Composites between p(n) and 2*p(n): A246514; between c(n) and 2*c(n): A376760; between n and 2*n: A075084, A307912, A307989, A376759.

chi := proc(n) if n <= 3 then 0 else n - numtheory:-pi(n) - 1; fi; end; # A065855
t := []: for n from 2 to 200000 do if not isprime(n) then t := [op(t), n]; fi; od: # precompute A002808
ithchi := proc(n) t[n]; end: # returns n-th composite number A002808 for any n <= 182015, analogous to ithprime
A376760 := proc(n) chi(2*ithchi(n)) - n + 1; end;
[seq(A376760(n),n=1..120)];

MapIndexed[2*# - PrimePi[2*#] - #2[[1]] &, Select[Range[100], CompositeQ]] (* Paolo Xausa, Oct 22 2024 *)

from sympy import composite, primepi
def A376760(n): return (m:=composite(n)<<1)-primepi(m)-n # Chai Wah Wu, Oct 22 2024

a(n) = 2*A002808(n) - A000720(2*A002808(n)) - n. - Paolo Xausa, Oct 22 2024

A376761 Number of primes between the n-th composite number c(n) and 2*c(n).

Original entry on oeis.org

2, 2, 2, 3, 4, 4, 3, 4, 5, 4, 4, 5, 6, 6, 6, 6, 7, 7, 7, 7, 7, 8, 8, 9, 9, 9, 10, 10, 9, 10, 10, 9, 10, 10, 11, 12, 12, 13, 13, 14, 14, 13, 12, 12, 13, 13, 14, 13, 14, 15, 14, 13, 14, 15, 15, 15, 15, 15, 16, 16, 16, 16, 17, 17, 17, 18, 18, 18, 18, 18, 19, 19, 20, 21, 20, 19, 19, 20, 19, 18, 18, 19, 19, 20, 20, 21, 21, 21, 22, 23, 23, 23, 23, 23, 24, 23, 24, 24, 24, 24, 24, 25

Offset: 1

N. J. A. Sloane, Oct 22 2024

nonn

Obviously the endpoints are not counted (since they are composite).

N. J. A. Sloane, Table of n, a(n) for n = 1..20000

Related sequences:
Primes (p) and composites (c): A000040, A002808, A000720, A065855.
Primes between p(n) and 2*p(n): A063124, A070046; between c(n) and 2*c(n): A376761; between n and 2*n: A035250, A060715, A077463, A108954.
Composites between p(n) and 2*p(n): A246514; between c(n) and 2*c(n): A376760; between n and 2*n: A075084, A307912, A307989, A376759.

MapIndexed[PrimePi[2*#] + #2[[1]] - # + 1 &, Select[Range[100], CompositeQ]] (* Paolo Xausa, Oct 22 2024 *)

from sympy import composite, primepi
def A376761(n): return n+1-(m:=composite(n))+primepi(m<<1) # Chai Wah Wu, Oct 22 2024

a(n) = A000720(2*A002808(n)) - A002808(n) + n + 1. - Paolo Xausa, Oct 22 2024

A120632 Number of numbers >1 up to 2*prime(n) which are divisible by primes up to prime(n).

Original entry on oeis.org

2, 4, 8, 11, 18, 22, 29, 33, 40, 51, 54, 64, 72, 76, 84, 94, 104, 109, 120, 127, 132, 142, 150, 161, 174, 181, 186, 194, 199, 207, 230, 238, 248, 252, 270, 275, 285, 297, 305, 317, 327, 331, 349, 353, 361, 365, 386, 407, 415, 419, 426, 438, 442, 460, 471, 482

Offset: 1

Lekraj Beedassy, Jun 21 2006

nonn

The first prime(n+1)-2 numbers >1 are divisible by primes up to prime(n).

Complement of A137624; A137621(a(n))=A000040(n); A137621(a(n)+1)=A100484(n). - Reinhard Zumkeller, Jan 30 2008

			a(4)=11 because exactly 11 numbers between 2 and 2*prime(4)=2*7=14, namely: 2,3,4,5,6,7,8,9,10,12,14 are divisible by the first four primes 2,3,5,7.

Robert Israel, Table of n, a(n) for n = 1..10000

Cf. A000040, A100484, A137621, A137624.

Cf. A120633, A040976, A076274, A070046.

f:= proc(n) local p;
   p:= ithprime(n); 2*p - numtheory:-pi(2*p)+n-1
end proc:
map(f, [$1..100]); # Robert Israel, Mar 02 2022

a(n) = {nb = 0; for (i = 2, 2*prime(n), for (ip = 1, n, if ( !(i % prime(ip)), nb++; break;););); nb;} \\ Michel Marcus, Oct 26 2013

a(n) = A120633(n) + A040976(n+1) = A076274(n) - A070046(n).

A331677 a(n) is the difference between the number of primes smaller than prime(n) (i.e., n-1) and greater than prime(n) but less than 2*prime(n).

Original entry on oeis.org

-1, 0, 1, 1, 1, 2, 2, 3, 3, 3, 3, 2, 3, 4, 5, 4, 3, 5, 5, 5, 7, 6, 7, 7, 5, 5, 7, 8, 10, 11, 7, 8, 7, 8, 7, 9, 8, 9, 10, 11, 10, 11, 10, 11, 12, 13, 11, 9, 10, 11, 11, 12, 13, 12, 12, 12, 14, 15, 16, 17, 18, 17, 13, 13, 15, 16, 12, 13, 12, 14, 15, 16, 15, 15

Offset: 1

Todor Szimeonov, Jan 24 2020

sign

Cf. A000040, A000720, A020900, A070046, A334051.

a(n) = 2*n - 1 - primepi(2*prime(n)); \\ Michel Marcus, Feb 02 2020

a(n) = (2*n-1) - A020900(n). - Michel Marcus, Feb 02 2020
a(n) = n - 1 - A070046(n). - M. F. Hasler, Feb 29 2020
a(n) = A334051(n) - 1. - Alois P. Heinz, Oct 09 2020

A120633 Number of composite numbers bounded inclusively between p(n+1) and 2*p(n) where p(x) is prime(x).

Original entry on oeis.org

1, 1, 3, 2, 7, 7, 12, 12, 13, 22, 19, 25, 31, 31, 33, 37, 45, 44, 51, 56, 55, 61, 63, 66, 75, 80, 81, 87, 88, 82, 101, 103, 111, 105, 121, 120, 124, 132, 134, 140, 148, 142, 158, 158, 164, 156, 165, 182, 188, 188, 189, 199, 193, 205, 210

Offset: 1

Lekraj Beedassy, Jun 21 2006

nonn

Table[Count[Range[Prime[n+1],2Prime[n]],?CompositeQ],{n,60}] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale, Oct 01 2019 *)

a(n) = A062234(n) - A070046(n) + 1 = A120632(n) - A040976(n+1).

Definition clarified by Harvey P. Dale, Oct 01 2019

A124136 The list of primes p such that the number of primes in the open interval (p,2p) is larger than the number of primes in the open interval (q,2q) for all q

Original entry on oeis.org

2, 7, 11, 17, 23, 29, 31, 37, 53, 59, 71, 79, 89, 97, 101, 127, 137, 149, 157, 179, 191, 211, 223, 233, 251, 257, 263, 293, 307, 311, 331, 347, 367, 373, 379, 389, 409, 419, 431, 443, 457, 479, 487, 499, 521, 541, 547, 557, 563, 587, 599, 613, 617, 631, 641

Offset: 1

Jani Melik, Nov 30 2006

nonn

Sequence A060715(n) lists the number of primes in the open interval (n,2*n).
If we extract its sublist for n a prime, the number of primes in the open interval (p,2*p), we have A070046(m) = 1, 1, 1, 2, 3, 3, 4, 4, 5, 6, 7, 9, 9, 9, 9, 11, 13, 12, 13, 14, 13, 15, 15, 16... for the primes p=2, 3, 5, 7, 11, 13, 17, 19 etc.
This sequence lists the primes p = prime(m) that set a new record in A070046(m).
Alternative definition: primes p defined by positions of records in A063124.

			a(1)=prime(1)=2 with 1 prime in the interval (2,4). a(2) is neither 3 (with 1 prime in the interval (3,6)), nor 5 (with 1 prime in the interval (5,10)), but a(2)=7 with 2 primes in the interval (7,14).
The primes 41, 43 and 47 are not in the list because the intervals (41,82), (43,86) and (47,94) contain 9 primes, but the interval (37,74) with the smaller prime p=37 already contained 9 primes.
The prime 53 is in the list because the interval (53,106) contains 11 primes and the intervals (q,2*q) for primes q =2,3, 5, ..,47 contained 9 or less primes.

Cf. A060756, A060715, A084139.

ts_c:=proc(n) local i,j,st_p,max_stp,ans; ans:= [ ]: st_p:=0: max_stp:=0: for i from 2 to n do for j from i+1 to 2*i-1 do if (isprime(j) = 'true') then st_p:=st_p+1: fi od: if (st_p > max_stp and isprime(i) = 'true') then max_stp := st_p: ans:=[ op(ans),i ]: fi; st_p:=0: od: RETURN(ans) end: ts_c(1200);

Definition recovered from the Maple program. - R. J. Mathar, May 21 2025

cp's OEIS Frontend

A376759 Number of composite numbers c with n < c <= 2*n.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Maple

Mathematica

Python

Formula

A246514 Number of composite numbers between prime(n) and 2*prime(n) exclusive.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Maple

Mathematica

PARI

PARI

Python

Formula

Extensions

A307912 a(n) = n - 1 - pi(2*n-1) + pi(n), where pi is the prime counting function.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Maple

Mathematica

Python

Formula

A307989 a(n) = n - pi(2*n) + pi(n-1), where pi is the prime counting function.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Maple

Mathematica

Python

Formula

A376760 Let c(n) = A002808(n) denote the n-th composite number; a(n) = number of composite numbers c with c(n) <= c <= 2*c(n).

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Maple

Mathematica

Python

Formula

A376761 Number of primes between the n-th composite number c(n) and 2*c(n).

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

Python

Formula

A120632 Number of numbers >1 up to 2*prime(n) which are divisible by primes up to prime(n).

Views

A124136 The list of primes p such that the number of primes in the open interval (p,2p) is larger than the number of primes in the open interval (q,2q) for all q