OFFSET
1,1
EXAMPLE
126_10 = 1111110_2 = 2*3^2*7, and 1111110 = 11.111.10, where "." represents concatenation.
MATHEMATICA
q[n_] := CompositeQ[n] && MemberQ[Join @@@ Permutations @ IntegerDigits[ FactorInteger[n][[;; , 1]], 2], IntegerDigits[n, 2]]; Select[Range[600000], q] (* Amiram Eldar, Mar 21 2022 *)
PROG
(Python)
from sympy import primefactors
from itertools import permutations
for i in range(1, 10**12):
p = primefactors(i)
if len(p) != 1:
p = list(map(lambda x: format(x, 'b'), p))
if all(j in format(i, 'b') for j in p) and any(format(i, 'b')==''.join(t) for t in permutations(p)):
print(i, end = ', ')
CROSSREFS
KEYWORD
nonn,base,more
AUTHOR
Gleb Ivanov, Mar 21 2022
EXTENSIONS
a(10)-a(15) from Amiram Eldar, Mar 21 2022
STATUS
approved