|
%I #12 Jul 24 2015 03:51:20
%S 2312,2432,3232,5319,5373,10112,10719,11691,14592,15417,19712,20412,
%T 21688,22194,23841,24705,25920,26217,32724,36096,39168,41823,42194,
%U 42417,43713,51597,58029,59211,61557,62192,66944,67068,68553,72873,76464
%N Composites whose prime factorization in base 5 is an anagram of the number in base 5.
%H Giovanni Resta, <a href="/A260049/b260049.txt">Table of n, a(n) for n = 1..10000</a>
%e 2312 = 2^3 * 17^2. In base 5, 33222 = 2^3 * 32^2.
%t Select[Range[10^5], !PrimeQ[#] && Sort@ IntegerDigits[#, 5] == Sort@ Flatten@ IntegerDigits[ Select[ Flatten@ FactorInteger@ #, #>1 &], 5] &] (* _Giovanni Resta_, Jul 14 2015 *)
%Y Cf. A260046, A260047, A260048, A260050, A260051, A260052, A260053, A025283, A260054, A260055.
%K base,easy,nonn
%O 1,1
%A _Stephen Tucker_, Jul 14 2015
|
