OFFSET
1,1
COMMENTS
LINKS
R. Zumkeller, Table of n, a(n) for n = 1..1000
MATHEMATICA
Select[Range[250], Ceiling[Mean[IntegerDigits[#]]]==4&] (* Harvey P. Dale, Sep 30 2011 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Reinhard Zumkeller, May 27 2010
STATUS
approved