|
%I #17 Jul 24 2015 03:50:57
%S 25,637,722,1135,1243,1519,1639,1734,1863,2167,4735,4855,4939,5311,
%T 5746,5886,5967,6381,6589,6713,7003,7339,7407,7774,8154,8503,8667,
%U 8703,9457,11123,11221,11711,15471,16735,17779,17965,18079,18283,18477,18589
%N Composites whose prime factorization in base 4 is an anagram of the number in base 4.
%H Giovanni Resta, <a href="/A260048/b260048.txt">Table of n, a(n) for n = 1..10000</a>
%e 25 = 5^2. In base 4, 121 = 11^2.
%t Select[Range[10^6], !PrimeQ[#] && Sort@ IntegerDigits[#, 4] == Sort@ Flatten@ IntegerDigits[ Select[ Flatten@ FactorInteger@ #, #>1 &], 4] &] (* _Giovanni Resta_, Jul 14 2015 *)
%Y Cf. A260046, A260047, A260049, A260050, A260051, A260052, A260053, A025283, A260054, A260055.
%K base,easy,nonn
%O 1,1
%A _Stephen Tucker_, Jul 14 2015
|
