This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A352334 #32 Apr 25 2022 01:44:17 %S A352334 126,7902,58167,63198,119565,505566,507771,2043825,8249085,12568150, %T A352334 132992559,183431550,196196825,258858950,533713761 %N A352334 Composite numbers that when written in base 2 are a concatenation of their distinct prime factors without multiplicity in some order. %e A352334 126_10 = 1111110_2 = 2*3^2*7, and 1111110 = 11.111.10, where "." represents concatenation. %t A352334 q[n_] := CompositeQ[n] && MemberQ[Join @@@ Permutations @ IntegerDigits[ FactorInteger[n][[;; , 1]], 2], IntegerDigits[n, 2]]; Select[Range[600000], q] (* _Amiram Eldar_, Mar 21 2022 *) %o A352334 (Python) %o A352334 from sympy import primefactors %o A352334 from itertools import permutations %o A352334 for i in range(1, 10**12): %o A352334 p = primefactors(i) %o A352334 if len(p) != 1: %o A352334 p = list(map(lambda x: format(x, 'b'),p)) %o A352334 if all(j in format(i,'b') for j in p) and any(format(i,'b')==''.join(t) for t in permutations(p)): %o A352334 print(i, end = ', ') %Y A352334 Cf. A324260, A324257. %K A352334 nonn,base,more %O A352334 1,1 %A A352334 _Gleb Ivanov_, Mar 21 2022 %E A352334 a(10)-a(15) from _Amiram Eldar_, Mar 21 2022