|
%I #15 Jul 24 2015 03:52:43
%S 27,85,169,175,771,4369,4803,5359,6805,7339,19405,21689,24433,36526,
%T 40405,40799,41723,41773,43999,44353,46131,47447,48819,49917,54965,
%U 71047,74273,87823,107892,130683,131026,139157,246977,268885,269977
%N Composites whose prime factorization in base 8 is an anagram of the number in base 8.
%H Giovanni Resta, <a href="/A260052/b260052.txt">Table of n, a(n) for n = 1..10000</a>
%e 27 = 3^3. In base 8, 33 = 3^3.
%t Select[Range[10^6], !PrimeQ[#] && Sort@ IntegerDigits[#, 8] == Sort@ Flatten@ IntegerDigits[ Select[ Flatten@ FactorInteger@ #, #>1 &], 8] &] (* _Giovanni Resta_, Jul 14 2015 *)
%Y Cf. A260046, A260047, A260048, A260049, A260050, A260051, A260053, A025283, A260054, A260055.
%K base,easy,nonn
%O 1,1
%A _Stephen Tucker_, Jul 14 2015
|
