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

Comments

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

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

subsequence of A178403.

Links

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

Formula

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

Example

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

Mathematica

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

Prog

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

Crossrefs

Sequence in context: A282151 A333614 A109052 * A044896 A048841 A059632

Adjacent sequences: A178355 A178356 A178357 * A178359 A178360 A178361

Keyword

base,nonn,look

Author

Reinhard Zumkeller, May 27 2010

Status

approved