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,1

Links

Giovanni Resta, Table of n, a(n) for n = 1..10000

Example

16 = 2^4. In base 3, 121 = 2^11.

Mathematica

Select[Range[10^6], !PrimeQ[#] && Sort@ IntegerDigits[#, 3] == Sort@ Flatten@ IntegerDigits[ Select[ Flatten@ FactorInteger@ #, #>1 &], 3] &] (* Giovanni Resta, Jul 14 2015 *)

Crossrefs

Cf. A260046, A260048, A260049, A260050, A260051, A260052, A260053, A025283, A260054, A260055.

Sequence in context: A109685 A188826 A152152 * A061101 A166672 A167358

Adjacent sequences: A260044 A260045 A260046 * A260048 A260049 A260050

Keyword

base,easy,nonn

Author

Stephen Tucker, Jul 14 2015

Status

approved