A072485 n-th number that includes the substring [n] in its decimal expansion.

1, 12, 23, 34, 45, 56, 67, 78, 89, 108, 119, 129, 213, 314, 415, 516, 617, 718, 819, 920, 1021, 1220, 1223, 1240, 1251, 1262, 1273, 1284, 1295, 1306, 1317, 1328, 1433, 1349, 1435, 1536, 1637, 1738, 1839, 1940, 2041, 2142, 2243, 2441, 2445, 2460, 2471, 2482, 2493, 2504, 2515, 2526, 2537, 2548

Offset: 1

Author

Amarnath Murthy, Jul 07 2002

Keywords

• base
• nonn

Links

• Robert Israel, Table of n, a(n) for n = 1..9999

Crossrefs

Leading diagonal of triangle defined in A072484.

Cf. A072483, A072484.

Programs

Maple

N:= 100: count:= 0: R:= {$1..N}:
V:= Vector(N):
for n from 1 while count < N do
  Q:= map(proc(t) local i; seq(t mod 10^i,i=1..1+ilog10(t)) end proc,
    {seq(floor(n/10^i), i=0..ilog10(n))}) intersect R;
  for m in Q do
    V[m]:= V[m]+1;
    if V[m] = m then A[m]:= n; count:= count+1 fi
  od;
od:
seq(A[i],i=1..N); # Robert Israel, Sep 25 2019

Extensions

Corrected and extended by Robert Israel, Sep 25 2019