%I #15 Mar 18 2018 14:30:56
%S 1,2,3,4,5,6,7,8,9,45,566,1500,2250,3750,18000,383333,4428571,
%T 11250000,788888888,1000000000,2000000000,3000000000,4000000000,
%U 5000000000,6000000000,7000000000,8000000000,9000000000,44545454545,358333333333,4461538461538
%N The decimal representation of the average of the digits of n starts with the digits of n.
%C The sequence is infinite since it contains all the numbers m*10^(10^k-1), for 1 <= m <= 9 and k >= 0.
%H Giovanni Resta, <a href="/A257829/b257829.txt">Table of n, a(n) for n = 1..876</a> (terms < 10^1000)
%e 566 is a term since the mean of its digits is (5+6+6)/3 = 17/3 and the first 3 digits of 17/3 = 5.6666... are 566. - corrected by _Joseph L. Wetherell_, Mar 17 2018
%t (* outputs terms with at most 100 digits *) sol[nd_] := Block[{z = Range[9 nd]/nd, x}, x = FromDigits /@ First /@ RealDigits[z, 10, nd]; x[[Select[Range@ Length@x, z[[#]] == Mean@ IntegerDigits@x[[#]] &]]]]; Union@ Flatten@Array[sol, 100]
%Y Cf. A257830.
%K base,nonn
%O 1,2
%A _Eric Angelini_ and _Giovanni Resta_, May 10 2015