A272596 - OEIS

9240, 10920, 14280, 15960, 17160, 18480, 19320, 21840, 22440, 24024, 24360, 25080, 26040, 26520, 27720, 28560, 29640, 30360, 31080, 31416, 31920, 32760, 34320, 34440, 35112, 35880, 36120, 36960, 37128, 38280, 38640, 38760, 39480, 40040, 40920, 41496, 42504, 42840, 43680, 44520, 44880, 45240, 46200

COMMENTS

Numbers n such that A046072(n) = 6.

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^5, my(t=#(znstar(n)[2])); if(t==6, print1(n, ", ")));