A272595 - OEIS
840, 1320, 1560, 1680, 1848, 2040, 2184, 2280, 2520, 2640, 2760, 2856, 3080, 3120, 3192, 3360, 3432, 3480, 3640, 3696, 3720, 3864, 3960, 4080, 4200, 4368, 4440, 4488, 4560, 4620, 4680, 4760, 4872, 4920, 5016, 5040, 5160, 5208, 5280, 5304, 5320, 5460, 5520, 5544, 5640, 5712, 5720, 5880, 5928, 6072, 6120
COMMENTS
Numbers n such that A046072(n) = 5.
MATHEMATICA
A046072[n_] := Which[n == 1 || n == 2, 1,
OddQ[n], PrimeNu[n],
EvenQ[n] && !Divisible[n, 4], PrimeNu[n] - 1,
Divisible[n, 4] && !Divisible[n, 8], PrimeNu[n],
Divisible[n, 8], PrimeNu[n] + 1];
PROG
(PARI) for(n=1, 10^4, my(t=#(znstar(n)[2])); if(t==5, print1(n, ", ")));