%I #13 Jul 27 2018 08:45:37
%S 81,6889,88804,1898884,78818884,878588881,88888055881,388888184881,
%T 86888087818884,788088668888889,8858888198858889,108818889888588889,
%U 18848488888038898881,868968788888888880481,3888888880378818878884,22886882888858888885881
%N Smallest square containing exactly n 8's.
%C a(21) > 10^28. - _Giovanni Resta_, Jul 27 2018
%H Giovanni Resta, <a href="/A036515/b036515.txt">Table of n, a(n) for n = 1..20</a>
%t a[n_] := Block[{k=1}, While[DigitCount[k^2, 10, 8] != n, k++]; k^2]; Array[a, 6] (* _Giovanni Resta_, Jul 27 2018 *)
%Y Cf. A048353. - _Jon E. Schoenfield_, Jan 24 2009
%K nonn,base
%O 1,1
%A _David W. Wilson_
%E More terms from _Jon E. Schoenfield_, Jan 24 2009
%E a(16) from _Giovanni Resta_, Jul 27 2018
|