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,2

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

Formula

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

Mathematica

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

Prog

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

Crossrefs

Cf. A007953, A055642.

Sequence in context: A284375 A102626 A306960 * A014418 A317204 A089591

Adjacent sequences: A178358 A178359 A178360 * A178362 A178363 A178364

Keyword

base,nonn,look

Author

Reinhard Zumkeller, May 27 2010

Status

approved