OFFSET
1,2
COMMENTS
LINKS
EXAMPLE
13440 is a term because 13440 = 2^7*3*5*7 = 2*(7 + 1) * 3*(1 + 1) * 5*(1 + 1) * 7*(1 + 1).
MATHEMATICA
a[n_] := Times @@ (#[[1]] (#[[2]] + 1) & /@ FactorInteger[n]); a[1] = 1; Select[Range[120000], a[#] == # &]
CROSSREFS
KEYWORD
nonn
AUTHOR
Ilya Gutkovskiy, May 12 2018
STATUS
approved