|
|
A326833
|
|
Numbers whose sum of digits is a power of 10.
|
|
3
|
|
|
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
|
|
|
MAPLE
|
q:= n-> (m-> m>0 and m=10^ilog[10](m))(add(i, i=convert(n, base, 10))):
select(q, [$1..1000])[];
|
|
PROG
|
(PARI) isok(n) = my(s=sumdigits(n), k); (s==1) || (s==10) || (ispower(s, , &k) && (k==10)); \\ Michel Marcus, Oct 21 2019
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|