OFFSET
0,4
LINKS
FORMULA
MATHEMATICA
Table[If[# == 1, 0, Total[#2*2^PrimePi[#1] & @@@ FactorInteger[#]]/2] &@ GCD[n, Times @@ Prime@ Flatten@ Position[Reverse@ IntegerDigits[n, 2], 1]], {n, 102}] (* Michael De Vlieger, Feb 20 2022 *)
PROG
CROSSREFS
KEYWORD
nonn,look
AUTHOR
Antti Karttunen, Feb 19 2022
STATUS
approved