|
|
A053865
|
|
A third-order generalization of the Mobius function of n.
|
|
6
|
|
|
1, 1, 1, 1, 1, 1, 1, -1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, -1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
Compares the exponents of the factors of the canonical prime factorization of n with 3 as detailed in A053864.
|
|
LINKS
|
|
|
MATHEMATICA
|
a[n_] := Which[ee = FactorInteger[n][[All, 2]]; AnyTrue[ee, # > 3 &], 0, AnyTrue[ee, # < 3 &], 1, True, (-1)^Length[ee]]; Array[a, 100] (* Jean-François Alcover, Feb 09 2018 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
sign
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|