A178358 Rounded up arithmetic mean of digits of n prepended to n, cf. A004427.

0, 11, 22, 33, 44, 55, 66, 77, 88, 99, 110, 111, 212, 213, 314, 315, 416, 417, 518, 519, 120, 221, 222, 323, 324, 425, 426, 527, 528, 629, 230, 231, 332, 333, 434, 435, 536, 537, 638, 639, 240, 341, 342, 443, 444, 545, 546, 647, 648, 749, 350, 351, 452, 453

Offset: 0

Author

Reinhard Zumkeller, May 27 2010

Keywords

• base
• nonn
• look

Comments

A000030(a(n)) = A004427(a(n)) = A004427(n);

a(A178359(n)) = A178359(a(n));

subsequence of A178403.

Examples

			n=8379 --> A004427(n) = ceiling((8+3+7+9)/4) = 7
--> a(8379) = 7*10^4 + 8379 = 78379.
		

Links

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

Programs

Haskell

a178358 n = read $ show (a004427 n) ++ show n :: Integer
-- Reinhard Zumkeller, Mar 17 2014

Mathematica

Table[Ceiling[Mean[IntegerDigits[n]]]*10^IntegerLength[n]+n,{n,0,100}] (* Harvey P. Dale, Apr 21 2019 *)

Formula

a(n) = A004427(n)*A011557(A055642(n)) + n.