A357494 Numbers k such that s(k) = 4*k, where s(k) is the sum of divisors of k that have a square factor (A162296).
902880, 1534680, 361674720, 767685600, 4530770640, 4941414720, 5405788800, 5517818880, 16993944000, 20429240832, 94820077440
Offset: 1
Examples
902880 is a term since A162296(902880) = 3611520 = 4*902880.
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) == 4*n]; Select[Range[2, 2*10^6], q]
Comments