%I #9 Dec 30 2023 13:03:56

%S 0,11,22,33,44,55,66,77,88,99,101,111,122,132,143,153,164,174,185,195,

%T 201,212,222,233,243,254,264,275,285,296,302,312,323,333,344,354,365,

%U 375,386,396,402,413,423,434,444,455,465,476,486,497,503,513,524,534

%N Rounded up arithmetic mean of digits of n appended to n, cf. A004427.

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

%C a(A178358(n)) = A178358(a(n));

%C subsequence of A178403.

%H Reinhard Zumkeller, <a href="/A178359/b178359.txt">Table of n, a(n) for n = 0..10000</a>

%F a(n) = A008592(n) + A004427(n).

%e For n=8379: A004427(n) = ceiling((8+3+7+9)/4) = 7; so a(8379) = 10*8379 + 7 = 83797.

%t amd[n_]:=Module[{m=Ceiling[Mean[IntegerDigits[n]]]},n*10^IntegerLength[ m]+ m]; Array[amd,60,0] (* _Harvey P. Dale_, Aug 12 2015 *)

%K base,nonn

%O 0,2

%A _Reinhard Zumkeller_, May 27 2010