OFFSET
1,3
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
FORMULA
EXAMPLE
a(12) = 12 / A076775(12) = 3.
MAPLE
f:= proc(n) local L, i;
L:= convert(n, base, 2);
n/igcd(n, add(10^(i-1)*L[i], i=1..nops(L)));
end proc:
map(f, [$1..100]); # Robert Israel, Sep 11 2022
MATHEMATICA
a[n_] := n / GCD[n, FromDigits@IntegerDigits[n, 2]]; Array[a, 100] (* Amiram Eldar, Sep 11 2022 *)
PROG
(Python)
from math import gcd
def A357111(n): return n//gcd(n, int(bin(n)[2:])) # Chai Wah Wu, Sep 12 2022
CROSSREFS
KEYWORD
AUTHOR
Ctibor O. Zizka, Sep 11 2022
STATUS
approved