|
%I #16 Jul 24 2015 03:53:29
%S 72646,74176,75295,78475,134832,189771,255619,422233,440561,586022,
%T 638582,644799,655312,659712,701078,855296,882278,919488,1197500,
%U 1213750,1328102,1329280,1428352,1451968,1581088,1585184,1718857
%N Composites whose prime factorization in base 9 is an anagram of the number in base 9.
%H Giovanni Resta, <a href="/A260053/b260053.txt">Table of n, a(n) for n = 1..10000</a>
%e 72646 = 2 * 7 * 5189. In base 9, 120577 = 2 * 7 * 7105.
%t Select[Range[10^6], !PrimeQ[#] && Sort@ IntegerDigits[#, 9] == Sort@ Flatten@ IntegerDigits[ Select[ Flatten@ FactorInteger@ #, #>1 &], 9] &] (* _Giovanni Resta_, Jul 14 2015 *)
%Y Cf. A260046, A260047, A260048, A260049, A260050, A260051, A260052, A025283, A260054, A260055.
%K base,easy,nonn
%O 1,1
%A _Stephen Tucker_, Jul 14 2015
|
