A260047 Composites whose prime factorization in base 3 is an anagram of the number in base 3.
16, 25, 160, 960, 1125, 1888, 3146, 3488, 3549, 4064, 4235, 4335, 4928, 5415, 5746, 5875, 7502, 7847, 8224, 8414, 8954, 9633, 10016, 10192, 11840, 12103, 12256, 12704, 12716, 12844, 16415, 16820, 16954, 18784, 18880, 19264, 19355, 19481, 22838
Offset: 1
Examples
16 = 2^4. In base 3, 121 = 2^11.
Links
- Giovanni Resta, Table of n, a(n) for n = 1..10000
Crossrefs
Programs
-
Mathematica
Select[Range[10^6], !PrimeQ[#] && Sort@ IntegerDigits[#, 3] == Sort@ Flatten@ IntegerDigits[ Select[ Flatten@ FactorInteger@ #, #>1 &], 3] &] (* Giovanni Resta, Jul 14 2015 *)