OFFSET
1,1
MATHEMATICA
With[{d4=Sort[{Total[IntegerDigits[#]], #}&/@(4Range[250000])]}, Table[ SelectFirst[ d4, #[[1]]==n&], {n, 50}]][[All, 2]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Jun 17 2021 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Amarnath Murthy, Nov 07 2002
EXTENSIONS
More terms from Ray Chandler, Aug 03 2003
STATUS
approved