OFFSET
1,1
FORMULA
a(n) = A143146(n) / n. - Rémy Sigrist, Jul 11 2022
MATHEMATICA
balQ[n_] := Module[{d = IntegerDigits[n, 2], m}, EvenQ@(m = Length@d) && Count[d, 1] == m/2]; a[n_] := Module[{k = 1}, While[!balQ[k*n], k++]; k]; Array[a, 100] (* Amiram Eldar, May 02 2022 *)
PROG
(PARI) is(n) = hammingweight(n)==hammingweight(bitneg(n, #binary(n))); \\ A031443
a(n) = my(m=1); while (!is(m*n), m++); m; \\ Michel Marcus, May 02 2022
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Alex Ratushnyak, May 02 2022
STATUS
approved