|
%I #25 Jan 05 2023 18:41:34
%S 10,297,49650,180701087317
%N a(n) = least integer k such that for all integers m greater than k, 2*Pi(n,m) is greater than Pi(n,2*m).
%C Pi(n, m) is the number of integers <= m that have n prime factors counting multiplicity, also known as n-almost-primes (A078840).
%e a(1) = 10 since the first term relates to 1-almost-primes, which are the primes themselves; and there are 4 primes <= 10, and 2*4 = 8 primes <= 2*10 = 20; but for m = 11 and all larger integers, the number of primes <= 2*m is less than twice the number of primes <= m. - _Peter Munn_, Dec 23 2022
%t AlmostPrimePi[k_Integer, n_] := Module[{a, i}, a[0] = 1; If[k == 1, PrimePi[n], Sum[ PrimePi[n/Times @@ Prime[Array[a, k - 1]]] - a[k - 1] + 1, Evaluate[Sequence @@ Table[{a[i], a[i - 1], PrimePi[(n/Times @@ Prime[Array[a, i - 1]])^(1/(k - i + 1))]}, {i, k - 1}]] ]]]; (* _Eric W. Weisstein_, Feb 07 2006 *)
%Y Cf. A078840, A092097, A117526, A126279, A125149.
%K nonn,hard,more
%O 1,1
%A _Jonathan Vos Post_ and _Robert G. Wilson v_, Jan 22 2007
%E a(4) from _Donovan Johnson_, Nov 13 2010
%E Edited by _Peter Munn_, Jan 05 2023
|
