OFFSET
1,3
COMMENTS
LINKS
Jaroslav Krizek, Table of n, a(n) for n = 1..1000
EXAMPLE
For n = 3; A120736(3) = 6; pod(6)/tau(6) = 36/4 = 9.
MATHEMATICA
(Times @@ #)/Length@ # &@ Divisors@ # & /@ Select[Range@ 100, Divisible[Times @@ Divisors@ #, DivisorSigma[0, #]] &] (* Michael De Vlieger, Oct 10 2017 *)
PROG
(Magma) [Numerator(&*[d: d in Divisors(n)] / #[d: d in Divisors(n)]): n in [1..1000] | Denominator(&*[d: d in Divisors(n)] / #[d: d in Divisors(n)]) eq 1]
CROSSREFS
KEYWORD
nonn
AUTHOR
Jaroslav Krizek, Oct 07 2017
STATUS
approved