OFFSET
1,1
FORMULA
a(n) = (1/n)*Sum_{d|n} moebius(n/d)*(2^n)^d.
MATHEMATICA
a[n_] := DivisorSum[n, MoebiusMu[#] * 2^(n^2/#) &] / n; Array[a, 10] (* Amiram Eldar, Aug 18 2023 *)
PROG
(PARI) a(n)=(1/n)*sumdiv(n, d, moebius(d)*2^(n^2/d))
CROSSREFS
KEYWORD
nonn
AUTHOR
Paul D. Hanna, Dec 01 2009
EXTENSIONS
a(12) from Amiram Eldar, Aug 18 2023
STATUS
approved