login
Numbers with rounded up arithmetic mean of digits = 7.
10

%I #5 Aug 21 2019 17:22:31

%S 7,49,58,59,67,68,76,77,85,86,94,95,199,289,298,299,379,388,389,397,

%T 398,399,469,478,479,487,488,489,496,497,498,559,568,569,577,578,579,

%U 586,587,588,595,596,597,649,658,659,667,668,669,676,677,678,685,686,687

%N Numbers with rounded up arithmetic mean of digits = 7.

%C A004427(a(n)) = 7;

%C A000027 = union of A178361, A178362, A178363, A178364, A178365, A178366, A178368, A178369, and this sequence.

%H R. Zumkeller, <a href="/A178367/b178367.txt">Table of n, a(n) for n = 1..1000</a>

%t Select[Range[700],Ceiling[Mean[IntegerDigits[#]]]==7&] (* _Harvey P. Dale_, Aug 21 2019 *)

%K base,nonn

%O 1,1

%A _Reinhard Zumkeller_, May 27 2010