A377338 - OEIS

%I #11 Nov 28 2024 10:59:20

%S 2,3,4,5,6,8,9,12,20,24,28,36,40,50,65,114,168,174,186,210,216,228,

%T 240,246,252,504,623,672,805,812,1328,1584,1608,1616,1680,1704,1736,

%U 1784,1792,1800,1808,1832,1888,1904,1912,1944,1992,2016,5121,5427,13790,13800

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

%e k = A060715(k) * q

%e 2 = 1 * 2

%e 3 = 1 * 3

%e 4 = 2 * 2

%e 5 = 1 * 5

%e 6 = 2 * 3

%e 8 = 2 * 4

%e 9 = 3 * 3

%e 12 = 4 * 3

%e 20 = 4 * 5

%t Select[Range[2, 14000], Divisible[#, PrimePi[2*# - 1] - PrimePi[#]] &] (* _Amiram Eldar_, Oct 25 2024 *)

%Y Cf. A060715.

%K nonn,new

%O 1,1

%A _Jean-Marc Rebert_, Oct 25 2024