A180157 Arithmetic mean of digits is not an integer.

10, 12, 14, 16, 18, 21, 23, 25, 27, 29, 30, 32, 34, 36, 38, 41, 43, 45, 47, 49, 50, 52, 54, 56, 58, 61, 63, 65, 67, 69, 70, 72, 74, 76, 78, 81, 83, 85, 87, 89, 90, 92, 94, 96, 98, 100, 101, 103, 104, 106, 107, 109, 110, 112, 113, 115, 116, 118, 119, 121, 122, 124, 125

Offset

1,1

Comments

Complement of A061383; A180160(a(n)) > 0;

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

It seems 'obvious' that a(n) ~ n; is this true? - Charles R Greathouse IV, Feb 06 2013

Links

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

Mathematica

Select[Range[200], !IntegerQ[Mean[IntegerDigits[#]]]&]  (* Harvey P. Dale, Mar 27 2011 *)

Prog

(PARI) is(n)=my(v=digits(n)); sum(i=1, #v, v[i])%#v>0 \\ Charles R Greathouse IV, Feb 06 2013

Crossrefs

Cf. A007953, A055642.

Sequence in context: A247393 A055983 A318700 * A309539 A273492 A227870

Adjacent sequences: A180154 A180155 A180156 * A180158 A180159 A180160

Keyword

base,nonn,easy

Author

Reinhard Zumkeller, Aug 15 2010

Status

approved