OFFSET
1,2
FORMULA
EXAMPLE
For n = 6; divisors d of 6: {1, 2, 3, 6}; tau(d): {1, 2, 2, 4}; lcm_{d|6} tau(d) = 4; a(6) = 4/1 * 4/2 * 4/2 * 4/4 = 16.
MATHEMATICA
a[n_] := (LCM @@ (s = DivisorSigma[0, Divisors[n]]))^Length[s] / Times @@ s; Array[a, 51] (* Amiram Eldar, May 02 2020 *)
PROG
(Magma) [&*[ LCM([#Divisors(d): d in Divisors(n)]) / #Divisors(d): d in Divisors(n)]: n in [1..100]]
(PARI) a(n) = {my(d=divisors(n), lcmd = lcm(vector(#d, k, numdiv(d[k])))); vecprod(vector(#d, k, lcmd/numdiv(d[k]))); } \\ Michel Marcus, May 02 2020
CROSSREFS
KEYWORD
nonn
AUTHOR
Jaroslav Krizek, May 01 2020
STATUS
approved