OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
MATHEMATICA
Select[Range[1000], Plus@@Last/@FactorInteger[ # ]==2&&OrderedQ[IntegerDigits[ # ]]&]
Select[Range[500], PrimeOmega[#]==2&&OrderedQ[IntegerDigits[#]]&] (* Harvey P. Dale, Feb 16 2026 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Zak Seidov, Jun 14 2005
STATUS
approved
