OFFSET
1,1
COMMENTS
Since other digits may be present, the last term is 9998876543210; otherwise the last term would be 99988 (as communicated by Giovanni Resta).
MATHEMATICA
ok[n_] := Block[{d = DigitCount[n]}, Count[d, 2] == 1 == Count[d, 3] && {} == Select[d, # > 3 &]]; Select[Range[22200], ok] (* Giovanni Resta, Aug 25 2017 *)
CROSSREFS
KEYWORD
nonn,base,fini
AUTHOR
Enrique Navarrete, Aug 21 2017
STATUS
approved