login
A358680
a(n) = 1 if the arithmetic derivative of n is even, 0 otherwise.
19
1, 1, 0, 0, 1, 0, 0, 0, 1, 1, 0, 0, 1, 0, 0, 1, 1, 0, 0, 0, 1, 1, 0, 0, 1, 1, 0, 0, 1, 0, 0, 0, 1, 1, 0, 1, 1, 0, 0, 1, 1, 0, 0, 0, 1, 0, 0, 0, 1, 1, 0, 1, 1, 0, 0, 1, 1, 1, 0, 0, 1, 0, 0, 0, 1, 1, 0, 0, 1, 1, 0, 0, 1, 0, 0, 0, 1, 1, 0, 0, 1, 1, 0, 0, 1, 1, 0, 1, 1, 0, 0, 1, 1, 1, 0, 1, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 1, 1, 0, 0, 1, 1, 0, 0, 1, 1
OFFSET
0
FORMULA
a(n) = A059841(A003415(n)).
a(n) = 1 - A165560(n).
For n >= 1, a(n) = A121262(n) + A353557(n) = A353494(n) + A353495(n).
PROG
(PARI) A358680(n) = if(n<=1, 1, my(f=factor(n)); 0==((n*sum(i=1, #f~, f[i, 2]/f[i, 1]))%2));
CROSSREFS
Characteristic function of A235992. One's complement of A165560.
Sequence in context: A095901 A374036 A087049 * A186447 A118009 A113429
KEYWORD
nonn
AUTHOR
Antti Karttunen, Dec 07 2022
STATUS
approved