A260051 - OEIS

%I #15 Jul 24 2015 03:52:13

%S 7136,9056,30057,32076,40256,40678,46400,71125,90334,145152,150027,

%T 159975,166281,177315,193227,201057,207681,207843,212000,218080,

%U 224192,225195,229407,246777,263031,265184,297027,298144,298208,306624,318096

%N Composites whose prime factorization in base 7 is an anagram of the number in base 7.

%H Giovanni Resta, <a href="/A260051/b260051.txt">Table of n, a(n) for n = 1..10000</a>

%e 7136 = 2^5 * 223. In base 7, 26543 = 2^5 * 436.

%t Select[Range[10^5], !PrimeQ[#] && Sort@ IntegerDigits[#, 7] == Sort@ Flatten@ IntegerDigits[ Select[ Flatten@ FactorInteger@ #, #>1 &], 7] &] (* _Giovanni Resta_, Jul 14 2015 *)

%Y Cf. A260046, A260047, A260048, A260049, A260050, A260052, A260053, A025283, A260054, A260055.

%K base,easy,nonn

%O 1,1

%A _Stephen Tucker_, Jul 14 2015