A326130 a(n) = gcd(A000120(n), A294898(n)) = gcd(A000120(n), sigma(n)-A005187(n)).

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

Links

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

Index entries for sequences related to binary expansion of n

Index entries for sequences related to sigma(n)

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));

Crossrefs

Cf. A000120, A000203, A005187, A033879, A326131.

Cf. also A009194, A325385, A325813, A325975, A326046, A326047, A326048, A326056, A326057, A326060, A326062, A326129, A326140, A326144.

Sequence in context: A278838 A140086 A037194 * A205510 A330004 A332901

Adjacent sequences: A326127 A326128 A326129 * A326131 A326132 A326133

Keyword

nonn

Author

Antti Karttunen, Jun 09 2019

Status

approved