A178365 -id:A178365 - cp's OEIS frontend

A004427 Arithmetic mean of digits of n (rounded up).

0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 1, 1, 2, 2, 3, 3, 4, 4, 5, 5, 1, 2, 2, 3, 3, 4, 4, 5, 5, 6, 2, 2, 3, 3, 4, 4, 5, 5, 6, 6, 2, 3, 3, 4, 4, 5, 5, 6, 6, 7, 3, 3, 4, 4, 5, 5, 6, 6, 7, 7, 3, 4, 4, 5, 5, 6, 6, 7, 7, 8, 4, 4, 5, 5, 6, 6, 7, 7, 8, 8, 4, 5, 5, 6, 6, 7, 7, 8, 8, 9, 5, 5, 6, 6, 7, 7, 8, 8, 9, 9, 1, 1, 1, 2, 2, 2, 3, 3

Offset: 0

N. J. A. Sloane

a(100)=1 is the first value that differs from the variant "... rounded to the nearest integer". - M. F. Hasler, May 10 2015

Cf. A178358, A178359, A178361, A178362, ..., A178369, A178401, A178402, A178403, A178404, A178405.

Cf. A000040, A004426, A007953, A055642, A061383, A074462.

Ceiling[Mean[IntegerDigits[#]]]&/@Range[0,110] (* Harvey P. Dale, Aug 29 2014 *)

A004427(n)=ceil(sum(i=1, #n=digits(n), n[i])/#n) \\ ...Vecsmall(Str(n))...-48 is a little faster. \\ M. F. Hasler, May 10 2015

From Reinhard Zumkeller, May 27 2010: (Start)
a(n) = ceiling(A007953(n)/A055642(n)); a(A000040(n)) = A074462(n);
A004426(n) <= a(n) with equality for n in A061383;
a(A178361(n)) = 1; a(A178362(n)) = 2; a(A178363(n)) = 3; a(A178364(n)) = 4; a(A178365(n)) = 5; a(A178366(n)) = 6; a(A178367(n)) = 7; a(A178368(n)) = 8; a(A178369(n)) = 9. (End)

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

Original entry on oeis.org

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

Reinhard Zumkeller, May 27 2010

A004427(a(n)) = 1;

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

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

Cf. A007953, A055642.

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

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

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

A178363 Numbers with rounded up arithmetic mean of digits = 3.

Original entry on oeis.org

3, 14, 15, 23, 24, 32, 33, 41, 42, 50, 51, 60, 106, 107, 108, 115, 116, 117, 124, 125, 126, 133, 134, 135, 142, 143, 144, 151, 152, 153, 160, 161, 162, 170, 171, 180, 205, 206, 207, 214, 215, 216, 223, 224, 225, 232, 233, 234, 241, 242, 243, 250, 251, 252, 260

Offset: 1

Reinhard Zumkeller, May 27 2010

A004427(a(n)) = 3;

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

R. Zumkeller, Table of n, a(n) for n = 1..1000

A178364 Numbers with rounded up arithmetic mean of digits = 4.

Original entry on oeis.org

4, 16, 17, 25, 26, 34, 35, 43, 44, 52, 53, 61, 62, 70, 71, 80, 109, 118, 119, 127, 128, 129, 136, 137, 138, 145, 146, 147, 154, 155, 156, 163, 164, 165, 172, 173, 174, 181, 182, 183, 190, 191, 192, 208, 209, 217, 218, 219, 226, 227, 228, 235, 236, 237, 244, 245

Offset: 1

Reinhard Zumkeller, May 27 2010

A004427(a(n)) = 4;

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

R. Zumkeller, Table of n, a(n) for n = 1..1000

Select[Range[250],Ceiling[Mean[IntegerDigits[#]]]==4&] (* Harvey P. Dale, Sep 30 2011 *)

A178366 Numbers with rounded up arithmetic mean of digits = 6.

Original entry on oeis.org

6, 29, 38, 39, 47, 48, 56, 57, 65, 66, 74, 75, 83, 84, 92, 93, 169, 178, 179, 187, 188, 189, 196, 197, 198, 259, 268, 269, 277, 278, 279, 286, 287, 288, 295, 296, 297, 349, 358, 359, 367, 368, 369, 376, 377, 378, 385, 386, 387, 394, 395, 396, 439, 448, 449, 457

Offset: 1

Reinhard Zumkeller, May 27 2010

A004427(a(n)) = 6;

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

R. Zumkeller, Table of n, a(n) for n = 1..1000

Cf. A000027, A004427.

Cf. A178361, A178362, A178363, A178364, A178365, A178367, A178368, A178369.

def ok(n): s = str(n); return 5*len(s) < sum(map(int, s)) <= 6*len(s)
print(list(filter(ok, range(458)))) # Michael S. Branicky, Jun 29 2021

A178367 Numbers with rounded up arithmetic mean of digits = 7.

Original entry on oeis.org

7, 49, 58, 59, 67, 68, 76, 77, 85, 86, 94, 95, 199, 289, 298, 299, 379, 388, 389, 397, 398, 399, 469, 478, 479, 487, 488, 489, 496, 497, 498, 559, 568, 569, 577, 578, 579, 586, 587, 588, 595, 596, 597, 649, 658, 659, 667, 668, 669, 676, 677, 678, 685, 686, 687

Offset: 1

Reinhard Zumkeller, May 27 2010

A004427(a(n)) = 7;

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

R. Zumkeller, Table of n, a(n) for n = 1..1000

Select[Range[700],Ceiling[Mean[IntegerDigits[#]]]==7&] (* Harvey P. Dale, Aug 21 2019 *)

A178368 Numbers with rounded up arithmetic mean of digits = 8.

Original entry on oeis.org

8, 69, 78, 79, 87, 88, 96, 97, 499, 589, 598, 599, 679, 688, 689, 697, 698, 699, 769, 778, 779, 787, 788, 789, 796, 797, 798, 859, 868, 869, 877, 878, 879, 886, 887, 888, 895, 896, 897, 949, 958, 959, 967, 968, 969, 976, 977, 978, 985, 986, 987, 994, 995, 996

Offset: 1

Reinhard Zumkeller, May 27 2010

A004427(a(n)) = 8;

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

Harvey P. Dale, Table of n, a(n) for n = 1..1000

Select[Range[1000],Ceiling[Mean[IntegerDigits[#]]]==8&] (* Harvey P. Dale, Oct 11 2011 *)

A178369 Numbers with rounded up arithmetic mean of digits = 9.

Original entry on oeis.org

9, 89, 98, 99, 799, 889, 898, 899, 979, 988, 989, 997, 998, 999, 6999, 7899, 7989, 7998, 7999, 8799, 8889, 8898, 8899, 8979, 8988, 8989, 8997, 8998, 8999, 9699, 9789, 9798, 9799, 9879, 9888, 9889, 9897, 9898, 9899, 9969, 9978, 9979, 9987, 9988, 9989, 9996

Offset: 1

Reinhard Zumkeller, May 27 2010

A004427(a(n)) = 9;

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

Vincenzo Librandi, Table of n, a(n) for n = 1..2000

Select[Range[10000],Ceiling[Mean[IntegerDigits[#]]]==9&] (* Harvey P. Dale, Apr 25 2014 *)

A178362 Numbers with rounded up arithmetic mean of digits = 2.

Original entry on oeis.org

2, 12, 13, 21, 22, 30, 31, 40, 103, 104, 105, 112, 113, 114, 121, 122, 123, 130, 131, 132, 140, 141, 150, 202, 203, 204, 211, 212, 213, 220, 221, 222, 230, 231, 240, 301, 302, 303, 310, 311, 312, 320, 321, 330, 400, 401, 402, 410, 411, 420, 500, 501, 510, 600

Offset: 1

Reinhard Zumkeller, May 27 2010

A004427(a(n)) = 2;

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

Select[Range[600],Ceiling[Mean[IntegerDigits[#]]]==2&] (* Harvey P. Dale, Aug 10 2012 *)

cp's OEIS Frontend

A004427 Arithmetic mean of digits of n (rounded up).

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

PARI

Formula

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

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Haskell

Mathematica

Formula

A178363 Numbers with rounded up arithmetic mean of digits = 3.

Views

Author

Keywords

Comments

Links

A178364 Numbers with rounded up arithmetic mean of digits = 4.

Views

Author

Keywords

Comments

Links

Programs

Mathematica

A178366 Numbers with rounded up arithmetic mean of digits = 6.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Python

A178367 Numbers with rounded up arithmetic mean of digits = 7.

Views

Author

Keywords

Comments

Links

Programs

Mathematica

A178368 Numbers with rounded up arithmetic mean of digits = 8.

Views

Author

Keywords

Comments

Links

Programs

Mathematica

A178369 Numbers with rounded up arithmetic mean of digits = 9.

Views

Author

Keywords

Comments

Links

Programs

Mathematica

A178362 Numbers with rounded up arithmetic mean of digits = 2.

Views

Author

Keywords

Comments

Programs

Mathematica