OFFSET
1,1
LINKS
Giovanni Resta, Table of n, a(n) for n = 1..10000
EXAMPLE
72646 = 2 * 7 * 5189. In base 9, 120577 = 2 * 7 * 7105.
MATHEMATICA
Select[Range[10^6], !PrimeQ[#] && Sort@ IntegerDigits[#, 9] == Sort@ Flatten@ IntegerDigits[ Select[ Flatten@ FactorInteger@ #, #>1 &], 9] &] (* Giovanni Resta, Jul 14 2015 *)
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Stephen Tucker, Jul 14 2015
STATUS
approved