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,1

Comments

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

Links

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

Example

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

Mathematica

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

Crossrefs

Cf. A008474.

Sequence in context: A172624 A043880 A030002 * A085805 A119413 A044446

Adjacent sequences: A238761 A238762 A238763 * A238765 A238766 A238767

Keyword

nonn,easy

Author

Ivan N. Ianakiev, Mar 05 2014

Status

approved