|
|
A304362
|
|
a(n) = Sum_{d|n, d = 1 or not a perfect power} mu(n/d).
|
|
11
|
|
|
1, 0, 0, -1, 0, 0, 0, 0, -1, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0, -1, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, -1, 0, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, -1, 1, 0, 1, 0, 0, 0, 0, 0, 0, 0, -1, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, -1, 0, 0, 0, 0, 0, -1, 0, 1, 0, 0, 0, 0, 0, 1, 1, -1, 0, 0, 0, 0, 0
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1
|
|
COMMENTS
|
The Moebius function mu is defined by mu(n) = (-1)^k if n is a product of k distinct primes and mu(n) = 0 otherwise.
Up to n = 10^7 this sequence only takes values in {-2, -1, 0, 1, 2}. Is this true in general?
|
|
LINKS
|
|
|
FORMULA
|
|
|
MATHEMATICA
|
Table[Sum[If[GCD@@FactorInteger[d][[All, 2]]===1, MoebiusMu[n/d], 0], {d, Divisors[n]}], {n, 100}]
|
|
PROG
|
|
|
CROSSREFS
|
Cf. A000005, A000961, A001221, A001597, A001694, A005117, A007916, A008683, A091050, A203025, A304326, A304327, A304364, A304365, A304369.
|
|
KEYWORD
|
sign
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|