OFFSET
1,6
FORMULA
a(n) = gcd(n, A000120(n)).
EXAMPLE
n = 6; gcd(6, A000120(6)) = 2, thus a(6) = 2.
MATHEMATICA
Array[GCD[#, Total@ IntegerDigits[#, 2]] &, 105] (* Michael De Vlieger, Oct 19 2021 *)
PROG
(PARI) a(n) = gcd(n, hammingweight(n)); \\ Michel Marcus, Oct 19 2021
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Ctibor O. Zizka, Oct 19 2021
STATUS
approved