OFFSET
1,2
FORMULA
a(n) = 1 for numbers from A145551 (numbers n such that product of divisors of n / sum of divisors of n is an integer).
PROG
(Magma)[Denominator((&*[d: d in Divisors(n)]) / (&+[d: d in Divisors(n)])): n in [1..1000]]
(PARI) a007955(n)=if(issquare(n, &n), n^numdiv(n^2), n^(numdiv(n)/2)) ;
a(n) = denominator(a007955(n)/sigma(n)); \\ Michel Marcus, Jul 05 2014
CROSSREFS
KEYWORD
nonn,frac
AUTHOR
Jaroslav Krizek, Jul 04 2014
STATUS
approved