

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
(list;
graph;
refs;
listen;
history;
text;
internal format)



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: A107322 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



