A067524 Smallest composite number with digit sum n.

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

Links

Table of n, a(n) for n=1..48.

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

Adjacent sequences: A067521 A067522 A067523 * A067525 A067526 A067527

Keyword

base,easy,nonn

Author

Amarnath Murthy, Feb 15 2002

Extensions

More terms from Sascha Kurz, Mar 28 2002

Status

approved