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])[];
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
Alois P. Heinz, Oct 20 2019
STATUS
approved