%I #14 Apr 26 2021 15:50:13
%S 16,676,46656,1666681,26666896,4666665969,26661664656,616686666436,
%T 12666666068676,696626660666596,16666569616666761,64666665664666569,
%U 666566667666656964,16656666666663616576,6466267667066666666596,46366666666326666766276
%N Smallest square containing exactly n 6's.
%C a(21) > 10^28. - _Giovanni Resta_, Jul 27 2018
%H Giovanni Resta, <a href="/A036513/b036513.txt">Table of n, a(n) for n = 1..20</a>
%e a(n) = A048351(n)^2.
%t a[n_] := Block[{k=1}, While[DigitCount[k^2, 10, 6] != n, k++]; k^2]; Array[a, 6] (* _Giovanni Resta_, Jul 27 2018 *)
%Y Cf. A048351. - _Jon E. Schoenfield_, Jan 24 2009
%K nonn,base
%O 1,1
%A _David W. Wilson_
%E a(13)-a(15) from _Jon E. Schoenfield_, Jan 14 2009
%E a(16) from _Giovanni Resta_, Jul 27 2018
|