A326130 - OEIS

The OEIS is supported by the many generous donors to the OEIS Foundation.

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

(list; graph; refs; listen; history; text; internal format)

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