OFFSET
1,1
COMMENTS
Prime numbers trivially satisfy this property and so are excluded.
EXAMPLE
15 is a term since its distinct prime factors are 3,5 and pi(15) = pi(3)*pi(5).
MATHEMATICA
Select[Range[2, 10000], ! PrimeQ[#] && Times @@ PrimePi[Transpose[FactorInteger[#]][[1]]] == PrimePi[#] &]
CROSSREFS
KEYWORD
nonn,fini,full
AUTHOR
Tanya Khovanova, Nov 04 2023
STATUS
approved