Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).
%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