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

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A351599 a(n) is the smallest integer m > 0 such that m*n is a digitally balanced number (A031443). 2
 2, 1, 3, 3, 2, 2, 5, 7, 1, 1, 4, 1, 4, 3, 9, 15, 9, 10, 2, 9, 2, 2, 8, 9, 2, 2, 5, 2, 8, 5, 17, 31, 5, 5, 1, 5, 1, 1, 4, 6, 1, 1, 4, 1, 3, 4, 3, 5, 1, 1, 3, 1, 4, 4, 3, 1, 4, 4, 3, 3, 13, 9, 33, 63, 3, 3, 3, 3, 10, 3, 2, 3, 11, 9, 2, 3, 2, 2, 8, 3, 10, 9, 2 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,1 LINKS Table of n, a(n) for n=1..83. 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 Cf. A031443, A143146. Sequence in context: A046819 A159945 A089216 * A350743 A234200 A102746 Adjacent sequences: A351596 A351597 A351598 * A351600 A351601 A351602 KEYWORD nonn,base AUTHOR Alex Ratushnyak, May 02 2022 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified August 11 04:58 EDT 2024. Contains 375059 sequences. (Running on oeis4.)