OFFSET
0,2
COMMENTS
The terms "10c + d" are to be read "c digits d (have appeared so far)", as in the "look and see" sequences A045918 and similar.
An analog sequence may be computed for any other initial term a(0). Sequence A329448 lists the starting values that will appear a second time later in the respective sequence.
LINKS
M. F. Hasler, Table of n, a(n) for n = 0..10000 (independently computed by Jean-Marc Falcoz).
Eric Angelini, Look left and say, Nov 14 2019.
MAPLE
a[0]:= 0;
S[0]:= 1:
for i from 1 to 9 do S[i]:= 0 od:
for n from 1 to 100 do
a[n]:= min(select(`>=`, [seq(10*S[i]+i, i=0..9)], 10));
L:= convert(a[n], base, 10);
for d from 0 to 9 do S[d]:= S[d] + numboccur(d, L) od;
od:
seq(a[n], n=0..100); # Robert Israel, Nov 14 2019
PROG
(PARI) A329447_vec(N)={my(c=Vec(1, 10), t); vector(N, i, for(j=1, #i=vecsort(c, , 1), if(c[i[j]], i=i[j]; break)); for(j=1, #i=digits(t=c[i]*10+i-1), c[i[j]+1]++); t)} \\ Returns the vector a(1..N)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Eric Angelini and M. F. Hasler, Nov 14 2019
STATUS
approved