OFFSET
1,2
LINKS
David A. Corneth, Table of n, a(n) for n = 1..10000
PROG
(PARI) upto(n)= {my(res = List()); for(i = 1, n, if(is(i), listput(res, i); print1(i", "))); res}
is(n) = {c = 10^n \ 9; is_A003052(c)}
is_A003052(n)={for(i=1, min(n\2, 9*#digits(n)), sumdigits(n-i)==i && return); n} \\ from M. F. Hasler, Mar 20 2011
CROSSREFS
KEYWORD
nonn,base
AUTHOR
David A. Corneth, Aug 19 2020
STATUS
approved