A353494 a(n) = 1 if the arithmetic derivative of n is a multiple of 4, otherwise 0.

1, 1, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 1, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 1, 1, 0, 0, 1, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 1, 1, 0, 0, 1, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 1, 0, 0, 1, 0, 0, 1, 1, 0, 0, 1, 1, 0, 0, 1, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0

Offset

0

Links

Antti Karttunen, Table of n, a(n) for n = 0..65537

Index entries for characteristic functions

Formula

a(n) = 1 if A353493(n) = 0, otherwise a(n) = 0.

For all n > 1, a(n) <= A341996(n) <= A341999(n). [This means that a membership in A327864 implies also a membership in A327929 and in A099309]

Prog

(PARI)
A003415(n) = if(n<=1, 0, my(f=factor(n)); n*sum(i=1, #f~, f[i, 2]/f[i, 1]));
A353494(n) = (0==(A003415(n)%4));

Crossrefs

Characteristic function of A327864.

Cf. A003415, A353493, A353495, and also A165560, A341996, A341999.

Sequence in context: A324822 A127239 A129186 * A190610 A095901 A087049

Adjacent sequences: A353491 A353492 A353493 * A353495 A353496 A353497

Keyword

nonn

Author

Antti Karttunen, Apr 23 2022

Status

approved