login
Composites whose prime factorization in base 8 is an anagram of the number in base 8.
11

%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