|
%I #9 Dec 16 2013 12:39:36
%S 1,12,20,21,22,23,24,25,26,27,28,29,32,42,52,62,72,82,92,103,113,123,
%T 130,131,132,133,134,135,136,137,138,139,143,153,163,173,183,193,203,
%U 213,223,230,231,232,233,234,235,236,237,238,239,243,253,263,273,283
%N Numbers containing their length in their decimal representation.
%H R. Zumkeller, <a href="/A138166/b138166.txt">Table of n, a(n) for n = 1..10000</a>
%o (Haskell)
%o import Data.List (isInfixOf)
%o a138166 n = a138166_list !! (n-1)
%o a138166_list = filter (\x -> show (a055642 x) `isInfixOf` show x) [0..]
%o -- _Reinhard Zumkeller_, Jul 04 2012
%Y Cf. A055642, A138167, A138168.
%Y Cf. A038528 (subsequence).
%Y Cf. A052018, A119246.
%K nonn,base
%O 1,2
%A _Reinhard Zumkeller_, Mar 03 2008
|
