|
|
A159034
|
|
Inverse Euler transform of A155200.
|
|
2
|
|
|
2, 7, 170, 16380, 6710886, 11453246035, 80421421917330, 2305843009213685760, 268650182136584261045760, 126765060022822940149666965093, 241677817415439249618874010960062650, 1858395433210885261794643189387357732203180, 57560679870263253393868202642364377389525958615670
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
FORMULA
|
a(n) = (1/n)*Sum_{d|n} 2^(d^2)*moebius(n/d).
|
|
MATHEMATICA
|
Table[Sum[2^(d^2)*MoebiusMu[n/d], {d, Divisors[n]}]/n, {n, 1, 12}] (* Vaclav Kotesovec, Oct 09 2019 *)
|
|
PROG
|
(PARI) a(n)={sumdiv(n, d, 2^(d^2)*moebius(n/d))/n} \\ Andrew Howroyd, Jan 08 2020
|
|
CROSSREFS
|
|
|
KEYWORD
|
easy,nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|