login
A374128
a(n) = 1 if gcd(A075255(n), A374127(n)) = abs(A374127(n)), otherwise 0.
4
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
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.
Sequence in context: A022932 A334812 A079421 * A304438 A168181 A368916
KEYWORD
nonn
AUTHOR
Antti Karttunen, Jul 06 2024
STATUS
approved