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
KEYWORD
nonn,easy
AUTHOR
Ivan N. Ianakiev, Mar 05 2014
STATUS
approved