A359606 a(n) = 1 if A355690(n) is negative (-1), otherwise 0.

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

Offset

1

Links

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

Index entries for characteristic functions

Formula

a(n) = A359605(n) - A355690(n).

a(n) = A359590(n) - A359605(n).

Prog

(PARI)
A010892(n) = ([1, 1, 0, -1, -1, 0][n%6 + 1]);
A355690(n) = { my(f = factor(n)); prod(k=1, #f~, if(2==f[k, 1], A010892(1+f[k, 2]), -(1==f[k, 2]))); };
A359606(n) = (A355690(n)<0);

Crossrefs

Cf. A355690, A359590, A359605.

Sequence in context: A323158 A011657 A354896 * A072126 A287125 A339051

Adjacent sequences: A359603 A359604 A359605 * A359607 A359608 A359609

Keyword

nonn,easy

Author

Antti Karttunen, Jan 12 2023

Status

approved