OFFSET
1,1
MATHEMATICA
nn = 12; A001037 = Table[1/n Sum[MoebiusMu[n/d] 2^d, {d, Divisors[n]}], {n, 1,
nn}] Table[Product[2^n - 2^i, {i, 0, n - 1}], {n, 1, nn}]/ Table[2^n - 1, {n, 1, nn}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Geoffrey Critzer, Jun 20 2021
STATUS
approved