OFFSET
1,2
EXAMPLE
MATHEMATICA
s="1"; ss={}; Do[tsn=ToString[n]; If[ !StringFreeQ[s, tsn], AppendTo[ss, n]]; s=s<>tsn, {n, 2, 99999}]; Table[Length[Select[ss, 10^(n-1)<=#<10^n&]], {n, 1, 5}]
PROG
(Python)
from itertools import count, islice
def agen(): # generator of terms
s = ""
for digits in count(1):
c = 0
for k in range(10**(digits-1), 10**digits):
sk = str(k)
if sk in s: c += 1
s += sk
yield c
print(list(islice(agen(), 5))) # Michael S. Branicky, Mar 17 2022
CROSSREFS
KEYWORD
base,nonn,more
AUTHOR
Zak Seidov, May 04 2009
EXTENSIONS
a(6)-a(7) from Michael S. Branicky, Mar 17 2022
a(8) from Michael S. Branicky, Dec 21 2022
a(9)-a(10) from Michael S. Branicky, Feb 06 2023
STATUS
approved