cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

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

This page as a plain text file.
%I A178358 #13 Dec 30 2023 12:37:16
%S A178358 0,11,22,33,44,55,66,77,88,99,110,111,212,213,314,315,416,417,518,519,
%T A178358 120,221,222,323,324,425,426,527,528,629,230,231,332,333,434,435,536,
%U A178358 537,638,639,240,341,342,443,444,545,546,647,648,749,350,351,452,453
%N A178358 Rounded up arithmetic mean of digits of n prepended to n, cf. A004427.
%C A178358 A000030(a(n)) = A004427(a(n)) = A004427(n);
%C A178358 a(A178359(n)) = A178359(a(n));
%C A178358 subsequence of A178403.
%H A178358 Reinhard Zumkeller, <a href="/A178358/b178358.txt">Table of n, a(n) for n = 0..10000</a>
%F A178358 a(n) = A004427(n)*A011557(A055642(n)) + n.
%e A178358 n=8379 --> A004427(n) = ceiling((8+3+7+9)/4) = 7
%e A178358 --> a(8379) = 7*10^4 + 8379 = 78379.
%t A178358 Table[Ceiling[Mean[IntegerDigits[n]]]*10^IntegerLength[n]+n,{n,0,100}] (* _Harvey P. Dale_, Apr 21 2019 *)
%o A178358 (Haskell)
%o A178358 a178358 n = read $ show (a004427 n) ++ show n :: Integer
%o A178358 -- _Reinhard Zumkeller_, Mar 17 2014
%K A178358 base,nonn,look
%O A178358 0,2
%A A178358 _Reinhard Zumkeller_, May 27 2010