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: A022932 A334812 A079421 * A304438 A168181 A368916

Adjacent sequences: A374125 A374126 A374127 * A374129 A374130 A374131

Keyword

nonn

Author

Antti Karttunen, Jul 06 2024

Status

approved