|
%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
|
