A243903 Numbers n such that (number of primes <= n) is greater than or equal to (number of semiprimes <= n).
1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 29, 30, 31, 32, 33
Offset: 1
Keywords
References
- E. Landau, Handbuch der Lehre von der Verteilung der Primzahlen, vol. 1, Teubner, Leipzig, 1909; third edition : Chelsea, New York (1974).
Programs
-
Mathematica
With[{nn=5000},Flatten[Position[Thread[{Accumulate[Table[ If[ PrimeOmega[n] == 2,1,0],{n,nn}]],PrimePi[Range[nn]]}],_?(Last[#]>=First[#]&),{1}, Heads-> False]]]
Comments