OFFSET
1,1
COMMENTS
The prime numbers with this property are the digitally balanced primes (A066196).
All the terms are odd, since if k is an even digitally balanced number then its divisor k/2 is not digitally balanced (since it has one fewer 0 in its binary expansion).
Apparently most of the terms are semiprimes (A001358) with 4 divisors.
Terms with 3 divisors, i.e., squares of primes: 145178401 = 12049^2, 155575729 = 12473^2, ...
The least term with more than 4 divisors is 8897396239 = 163 * 929 * 58757, with 8 divisors.
The least term with 6 divisors is 8923691369 = 41 * 14753^2.
EXAMPLE
132061 is a term since its divisors that are larger than 1 are {41, 3221, 132061}, and their binary representations are {101001, 110010010101, 100000001111011101}. Each one has an equal number of 0's and 1's.
MATHEMATICA
balQ[n_] := Module[{d = IntegerDigits[n, 2], m}, EvenQ @ (m = Length @ d) && Count[d, 1] == m/2]; Select[Range[9, 10^6, 2], CompositeQ[#] && AllTrue[Rest@Divisors[#], balQ] &]
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Amiram Eldar, Jun 17 2021
STATUS
approved