OFFSET
1,2
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
MAPLE
with(queue):
Q:= new(1): R:= 1:
for iter from 1 to 100 do
v:= dequeue(Q)+9;
R:= R, v;
L:= convert(v, base, 10);
for i from 1 to nops(L) do enqueue(Q, L[-i]) od;
od:
R; # Robert Israel, Jul 06 2020
MATHEMATICA
Flatten[ NestList[ Function[x, Flatten[ IntegerDigits[x] + 9]], {1}, 8]]
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Robert G. Wilson v, Feb 12 2005
EXTENSIONS
Edited and corrected by Robert Israel, Jul 06 2020
STATUS
approved