|
|
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
|
|
|
LINKS
|
|
|
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
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
EXTENSIONS
|
Corrected and extended by T. D. Noe, May 09 2011
|
|
STATUS
|
approved
|
|
|
|