|
%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
|
