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,2

Comments

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

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

subsequence of A178403.

Links

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

Formula

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

Example

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

Mathematica

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

Crossrefs

Sequence in context: A083967 A343444 A193772 * A108203 A308104 A108773

Adjacent sequences: A178356 A178357 A178358 * A178360 A178361 A178362

Keyword

base,nonn

Author

Reinhard Zumkeller, May 27 2010

Status

approved