A374128 a(n) = 1 if gcd(A075255(n), A374127(n)) = abs(A374127(n)), otherwise 0.

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

Offset

1

Links

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

Index entries for characteristic functions

Prog

(PARI)
A001414(n) = ((n=factor(n))[, 1]~*n[, 2]);
A374128(n) = { my(s=A001414(n), x=n-s, u=(sigma(n)-s)-n); (gcd(x, u)==abs(u)); };

Crossrefs

Characteristic function of A374129.

Cf. A000203, A001414, A075254, A086665, A374127.

Sequence in context: A079421 A377868 A377874 * A304438 A168181 A368916

Adjacent sequences: A374125 A374126 A374127 * A374129 A374130 A374131

Keyword

nonn

Author

_Antti Karttunen_, Jul 06 2024

Status

approved