A257295 Arithmetic mean of the digits of n, rounded to the nearest integer.

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, 0, 1, 1, 1, 2, 2, 2, 3

Offset: 0

Author

M. F. Hasler, May 10 2015

Keywords

• nonn
• base
• easy

Comments

Coincides up to a(99) with the variant A004427 (= arithmetic mean of digits, rounded up). - M. F. Hasler, May 10 2015

0 <= a(n) <= 9. a(10*n + a(n)) = a(n). - Robert Israel, May 11 2015

Links

• Index entries for Colombian or self numbers and related sequences

Crossrefs

Cf. A004426, A004427, A007953, A055642, A004428, A004429.

Programs

Maple

f:= proc(n) local L;
   L:= convert(n,base,10);
   round(convert(L,`+`)/nops(L))
end proc:
map(f, [$0..100]); # Robert Israel, May 11 2015

Mathematica

Round[Mean[IntegerDigits[#]]]&/@Range[0,110]

PARI

A257295(n)=round(sum(i=1, #n=digits(n), n[i])/#n) \\ ...Vecsmall(Str(n))...-48 is a little faster.

PARI

a(n)=round(sumdigits(n)/#digits(n)) \\ Charles R Greathouse IV, May 11 2015

Formula

a(n) = round(A007953(n)/A055642(n)).

A004426(n) <= a(n) <= A004427(n).