A326833 - OEIS

A326833

Numbers whose sum of digits is a power of 10.

1, 10, 19, 28, 37, 46, 55, 64, 73, 82, 91, 100, 109, 118, 127, 136, 145, 154, 163, 172, 181, 190, 208, 217, 226, 235, 244, 253, 262, 271, 280, 307, 316, 325, 334, 343, 352, 361, 370, 406, 415, 424, 433, 442, 451, 460, 505, 514, 523, 532, 541, 550, 604, 613

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,2

LINKS

Alois P. Heinz, Table of n, a(n) for n = 1..43758 (all terms with up to 9 digits)

MAPLE

q:= n-> (m-> m>0 and m=10^ilog[10](m))(add(i, i=convert(n, base, 10))):

select(q, [$1..1000])[];

MATHEMATICA

A326833Q[k_] := IntegerQ[Log10[DigitSum[k]]];

Select[Range[1000], A326833Q] (* or, faster: *)

A326833Q[k_] := # == 10^(IntegerLength[#] - 1) & [Total[IntegerDigits[k]]];