login
A067524
Smallest composite number with digit sum n.
0
10, 20, 12, 4, 14, 6, 16, 8, 9, 28, 38, 39, 49, 68, 69, 88, 98, 99, 289, 299, 399, 589, 689, 699, 799, 899, 999, 2899, 3899, 3999, 5899, 5999, 6999, 7999, 9899, 9999, 19999, 29999, 39999, 58999, 68999, 69999, 88999, 89999, 99999, 299899, 299999, 399999
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
Sequence in context: A107859 A294069 A249585 * A069555 A069035 A245065
KEYWORD
base,easy,nonn
AUTHOR
Amarnath Murthy, Feb 15 2002
EXTENSIONS
More terms from Sascha Kurz, Mar 28 2002
STATUS
approved