A238764 Numbers m such that A008474(m) divides m.

4, 20, 36, 50, 54, 64, 112, 120, 180, 192, 210, 220, 240, 270, 288, 300, 364, 392, 425, 432, 448, 450, 504, 528, 550, 560, 624, 648, 729, 748, 750, 756, 792, 858, 918, 924, 936, 972, 975, 988, 1040, 1134, 1188, 1190, 1210, 1274, 1280, 1300, 1326, 1372, 1400, 1428, 1440, 1456, 1472, 1539

Offset: 1

Author

Ivan N. Ianakiev, Mar 05 2014

Keywords

• nonn
• easy

Comments

If m = Product (p_i ^ a_i) then Sum (p_i + a_i) divides m.

Examples

			A008474(20) = 10 and 10 is a divisor of 20.
		

Links

• Ivan N. Ianakiev, Table of n, a(n) for n = 1..1000

Crossrefs

Cf. A008474.

Programs

Mathematica

Select[Range[2000], Mod[#, Plus @@ Flatten@ FactorInteger@ #] == 0 &] (* Giovanni Resta, Mar 05 2014 *)