|
|
A178358
|
|
Rounded up arithmetic mean of digits of n prepended to n, cf. A004427.
|
|
5
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
COMMENTS
|
|
|
LINKS
|
|
|
FORMULA
|
|
|
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
|
|
CROSSREFS
|
|
|
KEYWORD
|
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|