login
A326130
a(n) = gcd(A000120(n), A294898(n)) = gcd(A000120(n), sigma(n)-A005187(n)).
10
1, 1, 2, 1, 2, 2, 3, 1, 1, 2, 1, 2, 3, 1, 2, 1, 2, 1, 3, 2, 1, 1, 2, 2, 1, 1, 2, 3, 4, 4, 5, 1, 2, 2, 1, 1, 3, 1, 2, 2, 1, 3, 2, 1, 4, 4, 1, 2, 1, 1, 2, 3, 4, 4, 1, 1, 2, 2, 1, 4, 5, 1, 2, 1, 2, 2, 3, 2, 3, 1, 2, 1, 3, 1, 2, 3, 2, 4, 1, 2, 1, 1, 2, 1, 2, 4, 1, 1, 4, 2, 5, 4, 1, 1, 2, 2, 3, 1, 2, 1, 4, 4, 1, 1, 2
OFFSET
1,3
FORMULA
a(n) = gcd(A000120(n), A294898(n)) = gcd(A000120(n), A000203(n)-A005187(n)).
PROG
(PARI)
A005187(n) = { my(s=n); while(n>>=1, s+=n); s; };
A294898(n) = (A005187(n)-sigma(n));
A326130(n) = gcd(hammingweight(n), A294898(n));
(PARI) A326130(n) = gcd(hammingweight(n), sigma(n)-A005187(n));
KEYWORD
nonn
AUTHOR
Antti Karttunen, Jun 09 2019
STATUS
approved