%I #22 Feb 25 2023 09:37:21

%S 0,1,2,3,4,5,6,7,8,9,10,19,20,29,30,39,40,49,50,59,60,69,70,79,80,89,

%T 90,91,92,93,94,95,96,97,98,99,100,109,118,127,128,136,138,145,148,

%U 154,158,163,168,172,178,181,182,183,184,185,186,187,188,189,190,198,199,200

%N Numbers containing in decimal representation their digital root.

%C Complement of A119247.

%C For terms u: all digital permutations of u form terms; u*10 and all insertions of 0 are terms; if v is another term, then the concatenations uv, vu are also terms, as well as all insertions of v in u; these properties allow the construction of all terms beginning with {d:1<=d<=9}. - _Reinhard Zumkeller_, May 19 2006

%H Reinhard Zumkeller, <a href="/A119246/b119246.txt">Table of n, a(n) for n = 1..10000</a>

%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/DigitalRoot.html">Digital Root</a>

%t d[n_] := IntegerDigits[n]; Select[Range[0, 200], MemberQ[d[#1], NestWhile[Total[d[#]] &, #1, # > 9 &]] &] (* _Jayanta Basu_, Jul 13 2013 *)

%o (Haskell)

%o a119246 n = a119246_list !! (n-1)

%o a119246_list =

%o filter (\x -> a010888 x `elem` a031298_row (fromInteger x)) [0..]

%o -- _Reinhard Zumkeller_, Dec 16 2013, Apr 14 2011

%Y Cf. A010888.

%Y Cf. A052018, A031298, A138166.

%K nonn,base

%O 1,3

%A _Reinhard Zumkeller_, May 10 2006