OFFSET
0,15
COMMENTS
There was a suggestion that these were the same sequence, but they are not.
FORMULA
MATHEMATICA
f[n_] := Block[{d = Select[Divisors@n, OddQ@# &]}, Floor[2^n/n] - Plus @@ (2^(n/d)*MoebiusMu@d)/n]; Array[f, 76] (* Robert G. Wilson v *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Paul D. Hanna, Feb 20 2006
EXTENSIONS
More terms from Robert G. Wilson v, Feb 20 2006
STATUS
approved