A348584 Numbers k such that k | A328258(k).
1, 12, 56, 180, 992, 16256, 127400, 441000, 2646000, 67100672, 325458000, 2758909440, 17179738112, 274877382656
Offset: 1
Examples
12 is a term since A328258(12) = -12 is divisible by 12.
Crossrefs
Programs
-
Mathematica
f[p_, e_] := 1 - (-1)^p*(p^e); s[1] = 1; s[n_] := Times @@ f @@@ FactorInteger[n]; Select[Range[3*10^6], Divisible[s[#], #] &]
Comments