A348160 Odd numbers not appearing in A348158.
189, 273, 315, 513, 567, 585, 825, 945, 1071, 1323, 1365, 1539, 1575, 1701, 1755, 1911, 2079, 2205, 2255, 2457, 2565, 2835, 3003, 3069, 3075, 3213, 3465, 3549, 3591, 3969, 4125, 4329, 4347, 4617, 4641, 4725, 4995, 5103, 5187, 5265, 5425, 5481, 5733, 5775, 5859, 5985
Offset: 1
Keywords
Programs
-
Mathematica
f[n_] := Plus @@ DeleteDuplicates @ Map[EulerPhi, Divisors[n]]; m = 6000; Complement[Range[1, m, 2], Array[f, m^2]]
Comments