OFFSET
1,1
MATHEMATICA
Select[Range[1000], Plus@@Last/@FactorInteger[ # ]==2&&OrderedQ[IntegerDigits[ # ]]&]
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Zak Seidov, Jun 14 2005
STATUS
approved