A178361 Numbers with rounded up arithmetic mean of digits = 1.

1, 10, 11, 20, 100, 101, 102, 110, 111, 120, 200, 201, 210, 300, 1000, 1001, 1002, 1003, 1010, 1011, 1012, 1020, 1021, 1030, 1100, 1101, 1102, 1110, 1111, 1120, 1200, 1201, 1210, 1300, 2000, 2001, 2002, 2010, 2011, 2020, 2100, 2101, 2110, 2200, 3000, 3001

Offset: 1

Author

Reinhard Zumkeller, May 27 2010

Keywords

• base
• nonn
• look

Comments

A004427(a(n)) = 1;

A000027 = union of A178362, A178363, A178364, A178365, A178366, A178367, A178368, A178369, and this sequence.

Links

• Reinhard Zumkeller, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A007953, A055642.

Programs

Haskell

a178361 n = a178361_list !! (n-1)
a178361_list = [x | x <- [1..], a007953 x <= a055642 x]
-- Reinhard Zumkeller, May 06 2015

Mathematica

Select[Range[4000],Ceiling[Mean[IntegerDigits[#]]]==1&] (* Harvey P. Dale, Dec 31 2019 *)

Formula

A007953(a(n)) <= A055642(a(n)). - Reinhard Zumkeller, May 06 2015