This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A119246 #23 Feb 16 2025 08:33:01
%S A119246 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 A119246 90,91,92,93,94,95,96,97,98,99,100,109,118,127,128,136,138,145,148,
%U A119246 154,158,163,168,172,178,181,182,183,184,185,186,187,188,189,190,198,199,200
%N A119246 Numbers containing in decimal representation their digital root.
%C A119246 Complement of A119247.
%C A119246 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 A119246 Reinhard Zumkeller, <a href="/A119246/b119246.txt">Table of n, a(n) for n = 1..10000</a>
%H A119246 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/DigitalRoot.html">Digital Root</a>
%t A119246 d[n_] := IntegerDigits[n]; Select[Range[0, 200], MemberQ[d[#1], NestWhile[Total[d[#]] &, #1, # > 9 &]] &] (* _Jayanta Basu_, Jul 13 2013 *)
%o A119246 (Haskell)
%o A119246 a119246 n = a119246_list !! (n-1)
%o A119246 a119246_list =
%o A119246 filter (\x -> a010888 x `elem` a031298_row (fromInteger x)) [0..]
%o A119246 -- _Reinhard Zumkeller_, Dec 16 2013, Apr 14 2011
%Y A119246 Cf. A010888.
%Y A119246 Cf. A052018, A031298, A138166.
%K A119246 nonn,base
%O A119246 1,3
%A A119246 _Reinhard Zumkeller_, May 10 2006