A260046 Composites whose prime factorization in base 2 is an anagram of the number in base 2.
25, 159, 175, 242, 245, 287, 303, 319, 459, 500, 575, 591, 623, 679, 687, 699, 735, 763, 1135, 1167, 1203, 1243, 1247, 1271, 1351, 1371, 1391, 1525, 1631, 1734, 1911, 2167, 2173, 2231, 2285, 2295, 2319, 2359, 2463, 2471, 2495, 2519, 2743, 2779, 2787, 2863, 2890
Offset: 1
Examples
25 = 5^2. In base 2, 11001 = 101^10.
Links
- Giovanni Resta, Table of n, a(n) for n = 1..10000
Crossrefs
Programs
-
Mathematica
Select[Range[10^6], !PrimeQ[#] && Sort@ IntegerDigits[#, 2] == Sort@ Flatten@ IntegerDigits[ Select[ Flatten@ FactorInteger@ #, #>1 &], 2] &] (* Giovanni Resta, Jul 14 2015 *)