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