OFFSET
1,2
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
Jaroslav Krizek, May 07 2011
EXTENSIONS
Corrected and extended by T. D. Noe, May 09 2011
STATUS
approved