A359605 a(n) = 1 if A355690(n) is positive (+1), otherwise 0.

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

Offset

1

Links

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

Index entries for characteristic functions

Formula

a(n) = A355690(n) + A359606(n)

a(n) = A359590(n) - A359606(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]))); };
A359605(n) = (A355690(n)>0);

Crossrefs

Cf. A355690, A359590, A359606.

Sequence in context: A015582 A100910 A369004 * A368994 A217096 A014036

Adjacent sequences: A359602 A359603 A359604 * A359606 A359607 A359608

Keyword

nonn,easy

Author

Antti Karttunen, Jan 12 2023

Status

approved