A360109 a(n) = 1 if n is not multiple of 4, but its arithmetic derivative is, otherwise 0.

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

Offset

0

Links

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

Index entries for characteristic functions

Formula

a(n) = A166486(n) * A353494(n).

Prog

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

Crossrefs

Characteristic function of A360110.

Cf. A003415, A166486, A353494, A359828.

After n=1 differs from A327932 for the first time at n=158, where a(158) = 0, while A327932(158) = 1.

Sequence in context: A326168 A033683 A216284 * A355452 A130638 A030217

Adjacent sequences: A360106 A360107 A360108 * A360110 A360111 A360112

Keyword

nonn

Author

Antti Karttunen, Jan 31 2023

Status

approved