OFFSET
1,2
COMMENTS
The sequence is infinite since it contains all the numbers m*10^(10^k-1), for 1 <= m <= 9 and k >= 0.
LINKS
Giovanni Resta, Table of n, a(n) for n = 1..876 (terms < 10^1000)
EXAMPLE
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
MATHEMATICA
(* 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]
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Eric Angelini and Giovanni Resta, May 10 2015
STATUS
approved