cp's OEIS Frontend

A385116 Take the natural numbers, erase all occurrences of the digit "0," and shift all remaining digits leftward without changing the position of commas.

%I A385116 #14 Jun 30 2025 19:52:36
%S A385116 1,2,3,4,5,6,7,8,9,11,11,21,31,41,51,61,71,81,92,21,22,23,24,25,26,27,
%T A385116 28,29,33,13,23,33,43,53,63,73,83,94,41,42,43,44,45,46,47,48,49,55,15,
%U A385116 25,35,45,55,65,75,85,96,61,62,63,64,65,66,67,68,69,77
%N A385116 Take the natural numbers, erase all occurrences of the digit "0," and shift all remaining digits leftward without changing the position of commas.
%C A385116 a(1) = 1; digit stream is the same as that of A004719 and digit lengths A055642(a(n)) = A055642(n).
%H A385116 Dominic McCarty, <a href="/A385116/b385116.txt">Table of n, a(n) for n = 1..10000</a>
%e A385116 Starting with:
%e A385116 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, ...
%e A385116 Erase all zeros:
%e A385116 1, 2, 3, 4, 5, 6, 7, 8, 9, 1_, 11, 12, 13, 14, 15, 16, 17, 18, 19, 2_, 21, ...
%e A385116 Shift all remaining digits to the left:
%e A385116 1, 2, 3, 4, 5, 6, 7, 8, 9, 11, 11, 21, 31, 41, 51, 61, 71, 81, 92, 21, 22, ...
%o A385116 (Python)
%o A385116 from itertools import count
%o A385116 s = "".join(map(str,range(1,72))).replace("0","")
%o A385116 a, i, = [], 0
%o A385116 for k in count(1):
%o A385116     if (j:=i+len(str(k))) > len(s): break
%o A385116     a.append(int(s[i:j]))
%o A385116     i = j
%o A385116 print(a)
%Y A385116 Cf. A004719, A055642, A032762.
%K A385116 nonn,base,look
%O A385116 1,2
%A A385116 _Dominic McCarty_, Jun 18 2025