OFFSET
1,1
COMMENTS
Contains 209534289952018960 terms, the last term being a(209534289952018960) = 9999999999999999936.
LINKS
Michael De Vlieger, Table of n, a(n) for n = 1..10000
MATHEMATICA
b = 10; m = b - 1; a[1] = 6; 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, 45] (* Michael De Vlieger, Nov 18 2023, after Jean-François Alcover at A121805 *)
PROG
(Python)
from itertools import count, islice
def agen(start=6): # 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,base,fini
AUTHOR
N. J. A. Sloane, Nov 17 2023
STATUS
approved