A357493 Numbers k such that s(k) = 3*k, where s(k) is the sum of divisors of k that have a square factor (A162296).
480, 2688, 56304, 89400, 195216, 2095104, 9724032, 69441408, 1839272960, 5905219584
Offset: 1
Examples
480 is a term since A162296(480) = 1440 = 3*480.
Crossrefs
Programs
-
Mathematica
q[n_] := Module[{f = FactorInteger[n], p, e}, p = f[[;; , 1]]; e = f[[;; , 2]]; Times @@ ((p^(e + 1) - 1)/(p - 1)) - Times @@ (p + 1) == 3*n]; Select[Range[2, 10^7], q]
Comments