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

Author

Jean-Marc Rebert, Oct 25 2024

Keywords

• nonn

Examples

			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
		

Crossrefs

Cf. A060715.

Programs

Mathematica

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