|
|
A334743
|
|
a(1) = 1; a(n) = -Sum_{d|n, d < n} omega(n/d) * a(d), where omega = A001221.
|
|
2
|
|
|
1, -1, -1, 0, -1, 0, -1, 0, 0, 0, -1, 1, -1, 0, 0, 0, -1, 1, -1, 1, 0, 0, -1, 0, 0, 0, 0, 1, -1, 3, -1, 0, 0, 0, 0, 0, -1, 0, 0, 0, -1, 3, -1, 1, 1, 0, -1, 0, 0, 1, 0, 1, -1, 0, 0, 0, 0, 0, -1, -1, -1, 0, 1, 0, 0, 3, -1, 1, 0, 3, -1, -1, -1, 0, 1, 1, 0, 3, -1, 0, 0, 0, -1, -1, 0, 0, 0, 0, -1, -1
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,30
|
|
LINKS
|
|
|
FORMULA
|
G.f. A(x) satisfies: A(x) = x - Sum_{k>=2} omega(k) * A(x^k).
Dirichlet g.f.: 1 / (1 + zeta(s) * primezeta(s)).
|
|
MATHEMATICA
|
a[n_] := If[n == 1, n, -Sum[If[d < n, PrimeNu[n/d] a[d], 0], {d, Divisors[n]}]]; Table[a[n], {n, 90}]
|
|
CROSSREFS
|
|
|
KEYWORD
|
sign
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|