PrimeNu

PrimeNu[n] gives the number of distinct primes ν(n) in n.

Examples

PrimeNu[60]

Table[PrimeNu[n], {n, 1, 20}]

Please visit the official Wolfram Language Reference for more details.