cp's OEIS Frontend

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

%I A072485 #8 Sep 25 2019 17:01:53
%S A072485 1,12,23,34,45,56,67,78,89,108,119,129,213,314,415,516,617,718,819,
%T A072485 920,1021,1220,1223,1240,1251,1262,1273,1284,1295,1306,1317,1328,1433,
%U A072485 1349,1435,1536,1637,1738,1839,1940,2041,2142,2243,2441,2445,2460,2471,2482,2493,2504,2515,2526,2537,2548
%N A072485 n-th number that includes the substring [n] in its decimal expansion.
%H A072485 Robert Israel, <a href="/A072485/b072485.txt">Table of n, a(n) for n = 1..9999</a>
%p A072485 N:= 100: count:= 0: R:= {$1..N}:
%p A072485 V:= Vector(N):
%p A072485 for n from 1 while count < N do
%p A072485   Q:= map(proc(t) local i; seq(t mod 10^i,i=1..1+ilog10(t)) end proc,
%p A072485     {seq(floor(n/10^i), i=0..ilog10(n))}) intersect R;
%p A072485   for m in Q do
%p A072485     V[m]:= V[m]+1;
%p A072485     if V[m] = m then A[m]:= n; count:= count+1 fi
%p A072485   od;
%p A072485 od:
%p A072485 seq(A[i],i=1..N); # _Robert Israel_, Sep 25 2019
%Y A072485 Leading diagonal of triangle defined in A072484.
%Y A072485 Cf. A072483, A072484.
%K A072485 base,nonn
%O A072485 1,2
%A A072485 _Amarnath Murthy_, Jul 07 2002
%E A072485 Corrected and extended by _Robert Israel_, Sep 25 2019