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

0, 11, 22, 33, 44, 55, 66, 77, 88, 99, 101, 111, 122, 132, 143, 153, 164, 174, 185, 195, 201, 212, 222, 233, 243, 254, 264, 275, 285, 296, 302, 312, 323, 333, 344, 354, 365, 375, 386, 396, 402, 413, 423, 434, 444, 455, 465, 476, 486, 497, 503, 513, 524, 534

Offset: 0

Author

Reinhard Zumkeller, May 27 2010

Keywords

• base
• nonn

Comments

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

a(A178358(n)) = A178358(a(n));

subsequence of A178403.

Examples

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

Links

• Reinhard Zumkeller, Table of n, a(n) for n = 0..10000

Programs

Mathematica

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

Formula

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