OFFSET
1,3
COMMENTS
See A051281 for numbers m such that sigma(m) = tau(m)^k where k = integer, i.e., numbers m such that floor(log(sigma(m)) / log(tau(m))) = log(sigma(m)) / log(tau(m)).
EXAMPLE
a(6) = floor(log(sigma(6)) / log(tau(6))) = floor(log(12) / log(4)) = floor(1.792481...) = 1.
a(7) = floor(log(sigma(7)) / log(tau(7))) = floor(log(8) / log(2)) = floor(3) = 3.
MATHEMATICA
a[1] = 1; a[n_] := Floor[Log @@ DivisorSigma[{0, 1}, n]]; Array[a, 100] (* Amiram Eldar, Dec 16 2021 *)
PROG
(Magma) [1] cat [Floor(Log(&+Divisors(n)) / Log(#Divisors(n))): n in [2..100]]
CROSSREFS
KEYWORD
nonn
AUTHOR
Jaroslav Krizek, Dec 16 2021
STATUS
approved