A067575 Numbers k that divide phi(k)*bigomega(k).
1, 4, 12, 16, 18, 27, 64, 80, 96, 144, 200, 216, 256, 324, 448, 486, 500, 672, 729, 768, 1008, 1024, 1152, 1250, 1512, 1568, 1728, 2268, 2352, 2560, 2592, 3125, 3402, 3528, 3888, 4096, 5103, 5292, 5488, 5832, 6144, 6400, 7938, 8232
Offset: 1
Keywords
Programs
-
Mathematica
Select[Range[8300],Mod[EulerPhi[#]PrimeOmega[#],#]==0&] (* Harvey P. Dale, Oct 23 2024 *)
Comments