A348852 Numbers k such that the number of odd nonprimes <= k is equal to the number of primes <= k.
2, 93, 94, 97, 98, 101, 102, 105, 106, 117, 118
Offset: 1
Examples
a(4) = 97 is a term because there are 25 odd nonprimes <= 97 and 25 primes <= 97.
Programs
-
Mathematica
Select[Range@1000,(k=#;Length@Select[Range@k,OddQ@#&&!PrimeQ@#&]==PrimePi@k)&]
-
PARI
isok(k) = primepi(k) == #select(x->(!isprime(x) && (x%2)), [1..k]); \\ Michel Marcus, Nov 06 2021
Comments