A190296 Numbers n such that the mean of the digits in n is an integer m and n is divisible by m.

1, 2, 3, 4, 5, 6, 7, 8, 9, 11, 15, 20, 22, 24, 33, 40, 42, 44, 48, 51, 55, 60, 66, 77, 80, 84, 88, 99, 102, 108, 111, 114, 117, 120, 126, 132, 135, 144, 150, 153, 156, 162, 171, 180, 192, 195, 198, 201, 204, 207, 210, 216, 222, 225, 228, 234, 240, 243, 252

Offset

1,2

Comments

Subsequence of A061383. Supersequence of A010785.

Links

Table of n, a(n) for n=1..59.

Example

132 is in the sequence because it is divisible by the arithmetic mean of its digits, namely 2.

Mathematica

okQ[n_] := Module[{m = Mean[IntegerDigits[n]]}, IntegerQ[m] && Divisible[n, m]]; Select[Range[500], okQ] (* T. D. Noe, May 09 2011 *)

Crossrefs

Sequence in context: A061379 A050761 A030721 * A143288 A001103 A265730

Adjacent sequences: A190293 A190294 A190295 * A190297 A190298 A190299

Keyword

nonn,base

Author

Jaroslav Krizek, May 07 2011

Extensions

Corrected and extended by T. D. Noe, May 09 2011

Status

approved