OFFSET
1,2
PROG
(Magma)[Numerator((&*[d: d in Divisors(n)]) / (&+[d: d in Divisors(n)])): n in [1..10000] | Denominator((&*[d: d in Divisors(n)]) / (&+[d: d in Divisors(n)])) eq 1]
CROSSREFS
KEYWORD
nonn
AUTHOR
Jaroslav Krizek, Jul 04 2014
STATUS
approved