A367103 Composite numbers c such that pi(c) is the product of pi applied to the distinct prime factors of c.
15, 21, 39, 57, 65, 91, 95, 133
Offset: 1
Examples
15 is a term since its distinct prime factors are 3,5 and pi(15) = pi(3)*pi(5).
Programs
-
Mathematica
Select[Range[2,10000], ! PrimeQ[#] && Times @@ PrimePi[Transpose[FactorInteger[#]][[1]]] == PrimePi[#] &]
Comments