|
%I #14 Jul 24 2015 03:54:40
%S 4617,7047,18193,33534,180803,196352,217147,283983,386391,422144,
%T 448147,616977,705875,842967,886250,926336,947125,954747,1169536,
%U 1235875,1373375,1866955,1883049,1968259
%N Composites whose prime factorization in base 11 is an anagram of the number in base 11.
%H Giovanni Resta, <a href="/A260054/b260054.txt">Table of n, a(n) for n = 1..10000</a>
%e 4617 = 3^5 * 19. In base 11, 3518 = 3^5 * 18.
%t Select[Range[10^6], !PrimeQ[#] && Sort@ IntegerDigits[#, 11] == Sort@ Flatten@ IntegerDigits[ Select[ Flatten@ FactorInteger@ #, #>1 &], 11] &] (* _Giovanni Resta_, Jul 14 2015 *)
%Y Cf. A260046, A260047, A260048, A260049, A260050, A260051, A260052, A260053, A025283, A260055.
%K base,easy,nonn
%O 1,1
%A _Stephen Tucker_, Jul 14 2015
|
