OFFSET
1,1
COMMENTS
Contains 20573 terms, the last of which is 999936.
LINKS
Michael De Vlieger, Table of n, a(n) for n = 1..20573
MATHEMATICA
a[1] = b = 10; m = b - 1; a[n_] := a[n] = For[r = Mod[a[n - 1], b]; y = 0, y <= m, y++, If[y == IntegerDigits[#, b][[1]], Return[#]] &[a[n - 1] + b r + y]]; Array[a, 50] (* Michael De Vlieger, Nov 18 2023, after Jean-François Alcover at A121805 *)
PROG
(Python)
from itertools import islice
def agen(start=10): # generator of terms
an, y = start, 1
while y < 10:
yield an
an, y = an + 10*(an%10), 1
while y < 10:
if str(an+y)[0] == str(y):
an += y
break
y += 1
print(list(islice(agen(), 50))) # Michael S. Branicky, Nov 18 2023
CROSSREFS
KEYWORD
nonn,fini,base
AUTHOR
N. J. A. Sloane, Nov 17 2023
STATUS
approved