OFFSET
1,5
MATHEMATICA
a[n_] := Product[Floor[n/k], {k, 1, n}] / n^(DivisorSigma[0, n]/2); Array[a, 40] (* Amiram Eldar, Apr 08 2024 *)
PROG
(PARI) a(n) = prod(k = 1, n, n\k) / n^(numdiv(n)/2); \\ Amiram Eldar, Apr 08 2024
CROSSREFS
KEYWORD
nonn
AUTHOR
Benoit Cloitre, Nov 26 2002
STATUS
approved