A180157 - OEIS

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

(list; graph; refs; listen; history; text; internal format)

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