OFFSET
1,1
COMMENTS
The sequence contains two subsequences:
Subsequence 1: numbers with distinct digits. This finite subsequence begins with the numbers 735, 3792, 7236, 17482, 19075, 19276, 32104, ...
Subsequence 2: numbers with non-distinct digits. This subsequence begins with the numbers 1255, 11913, 12955, 13175, 17276, 23535, ...
LINKS
Robert Israel, Table of n, a(n) for n = 1..500
EXAMPLE
3792 is in the sequence because the concatenation of the prime distinct divisors {2, 3, 79} is 2379, anagram of 3792.
MAPLE
with(numtheory):
for n from 1 to 140000 do:
if type(n, prime)=false
then
x:=factorset(n):n1:=nops(x): s:=0:s0:=0:
for i from n1 by -1 to 1 do:
a:=x[i]:b:=length(a):s:=s+a*10^s0:s0:=s0+b:
od:
if sort(convert(n, base, 10)) = sort(convert(s, base, 10))
then
printf(`%d, `, n):
else
fi:fi:
od:
MATHEMATICA
Select[Range[2, 140000], If [!PrimeQ[#], Sort@IntegerDigits@#==Sort[Join@@IntegerDigits[First/@FactorInteger[#]]]]&]
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Michel Lagneau, Feb 18 2019
STATUS
approved