login
A190296
Numbers n such that the mean of the digits in n is an integer m and n is divisible by m.
0
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.
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
KEYWORD
nonn,base
AUTHOR
Jaroslav Krizek, May 07 2011
EXTENSIONS
Corrected and extended by T. D. Noe, May 09 2011
STATUS
approved