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