|
%I #9 Mar 10 2014 04:52:57
%S 4,20,36,50,54,64,112,120,180,192,210,220,240,270,288,300,364,392,425,
%T 432,448,450,504,528,550,560,624,648,729,748,750,756,792,858,918,924,
%U 936,972,975,988,1040,1134,1188,1190,1210,1274,1280,1300,1326,1372,1400,1428,1440,1456,1472,1539
%N Numbers m such that A008474(m) divides m.
%C If m = Product (p_i ^ a_i) then Sum (p_i + a_i) divides m.
%H Ivan N. Ianakiev, <a href="/A238764/b238764.txt">Table of n, a(n) for n = 1..1000</a>
%e A008474(20) = 10 and 10 is a divisor of 20.
%t Select[Range[2000], Mod[#, Plus @@ Flatten@ FactorInteger@ #] == 0 &] (* _Giovanni Resta_, Mar 05 2014 *)
%Y Cf. A008474.
%K nonn,easy
%O 1,1
%A _Ivan N. Ianakiev_, Mar 05 2014
|
