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 A178361 #9 Dec 31 2019 15:11:05 %S A178361 1,10,11,20,100,101,102,110,111,120,200,201,210,300,1000,1001,1002, %T A178361 1003,1010,1011,1012,1020,1021,1030,1100,1101,1102,1110,1111,1120, %U A178361 1200,1201,1210,1300,2000,2001,2002,2010,2011,2020,2100,2101,2110,2200,3000,3001 %N A178361 Numbers with rounded up arithmetic mean of digits = 1. %C A178361 A004427(a(n)) = 1; %C A178361 A000027 = union of A178362, A178363, A178364, A178365, A178366, A178367, A178368, A178369, and this sequence. %H A178361 Reinhard Zumkeller, <a href="/A178361/b178361.txt">Table of n, a(n) for n = 1..10000</a> %F A178361 A007953(a(n)) <= A055642(a(n)). - _Reinhard Zumkeller_, May 06 2015 %t A178361 Select[Range[4000],Ceiling[Mean[IntegerDigits[#]]]==1&] (* _Harvey P. Dale_, Dec 31 2019 *) %o A178361 (Haskell) %o A178361 a178361 n = a178361_list !! (n-1) %o A178361 a178361_list = [x | x <- [1..], a007953 x <= a055642 x] %o A178361 -- _Reinhard Zumkeller_, May 06 2015 %Y A178361 Cf. A007953, A055642. %K A178361 base,nonn,look %O A178361 1,2 %A A178361 _Reinhard Zumkeller_, May 27 2010