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