A377338 Numbers k such that A060715(k), the number of prime numbers between k and 2k exclusive, divides k.

2, 3, 4, 5, 6, 8, 9, 12, 20, 24, 28, 36, 40, 50, 65, 114, 168, 174, 186, 210, 216, 228, 240, 246, 252, 504, 623, 672, 805, 812, 1328, 1584, 1608, 1616, 1680, 1704, 1736, 1784, 1792, 1800, 1808, 1832, 1888, 1904, 1912, 1944, 1992, 2016, 5121, 5427, 13790, 13800

Offset

1,1

Links

Table of n, a(n) for n=1..52.

Example

k = A060715(k) * q
2 = 1 * 2
3 = 1 * 3
4 = 2 * 2
5 = 1 * 5
6 = 2 * 3
8 = 2 * 4
9 = 3 * 3
12 = 4 * 3
20 = 4 * 5

Mathematica

Select[Range[2, 14000], Divisible[#, PrimePi[2*# - 1] - PrimePi[#]] &] (* Amiram Eldar, Oct 25 2024 *)

Crossrefs

Cf. A060715.

Sequence in context: A295165 A258023 A190232 * A084693 A276765 A121644

Adjacent sequences: A377335 A377336 A377337 * A377339 A377340 A377341

Keyword

nonn,new

Author

Jean-Marc Rebert, Oct 25 2024

Status

approved