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

Author

Reinhard Zumkeller, Aug 15 2010

Keywords

• base
• nonn
• easy

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

Crossrefs

Cf. A007953, A055642.

Programs

Mathematica

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

PARI

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