OFFSET
1,1
MATHEMATICA
With[{c={#, Total[IntegerDigits[#]]}&/@Select[Range[5*10^5], CompositeQ]}, Table[ SelectFirst[c, #[[2]]==n&], {n, 50}]][[All, 1]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, May 15 2018 *)
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Amarnath Murthy, Feb 15 2002
EXTENSIONS
More terms from Sascha Kurz, Mar 28 2002
STATUS
approved