This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A238764 #9 Mar 10 2014 04:52:57 %S A238764 4,20,36,50,54,64,112,120,180,192,210,220,240,270,288,300,364,392,425, %T A238764 432,448,450,504,528,550,560,624,648,729,748,750,756,792,858,918,924, %U A238764 936,972,975,988,1040,1134,1188,1190,1210,1274,1280,1300,1326,1372,1400,1428,1440,1456,1472,1539 %N A238764 Numbers m such that A008474(m) divides m. %C A238764 If m = Product (p_i ^ a_i) then Sum (p_i + a_i) divides m. %H A238764 Ivan N. Ianakiev, <a href="/A238764/b238764.txt">Table of n, a(n) for n = 1..1000</a> %e A238764 A008474(20) = 10 and 10 is a divisor of 20. %t A238764 Select[Range[2000], Mod[#, Plus @@ Flatten@ FactorInteger@ #] == 0 &] (* _Giovanni Resta_, Mar 05 2014 *) %Y A238764 Cf. A008474. %K A238764 nonn,easy %O A238764 1,1 %A A238764 _Ivan N. Ianakiev_, Mar 05 2014