# Greetings from The On-Line Encyclopedia of Integer Sequences! http://oeis.org/ Search: id:a261169 Showing 1-1 of 1 %I A261169 #12 Jan 02 2023 12:30:51 %S A261169 1,9,0,2,3,4,5,6,7,8,19,90,29,10,39,11,12,91,13,14,92,15,16,49,17,18, %T A261169 20,59,21,22,23,24,93,25,26,27,28,30,31,32,33,34,94,35,36,37,38,40,41, %U A261169 42,43,44,45,46,47,48,50,51,52,53,54,55,56,57,58,60,61,62,63,64,65,66,67,68,70,71,72,73,74,75,76 %N A261169 List run lengths of digits different from '9', when all terms are concatenated. Lexicographically first such sequence of nonnegative numbers with no repeated terms. %C A261169 See A261161-A261163 for comments and examples. %H A261169 E. Angelini, To reach the next "1", SeqFan list, August 10, 2015. %o A261169 (PARI) A261169(n=99,d=9,a=1,p=0,u=[-1],r=u)={for(n=2,n, print1(a","); p+=#digits(a)+!a; r=concat(r,r[#r]+a+1); while(#r>1&&r[1]

1&&u[2]==u[1]+1,u=u[2..-1]); for(k=u[1]+1,9e9,setsearch(u,k)&&next; if(r[1] >= p+#dk=if(k,digits(k),[0]), setsearch(Set(dk),d)&&next, for(i=1,#dk,(dk[i]==d)==!setsearch(r,p+i-1)&&next(2))); a=k;next(2));error);a} %Y A261169 Cf. A261160 - A261168. %K A261169 nonn,base %O A261169 1,2 %A A261169 _Eric Angelini_ and _M. F. Hasler_, Aug 10 2015 # Content is available under The OEIS End-User License Agreement: http://oeis.org/LICENSE