|
%I #12 Mar 21 2020 16:34:02
%S 0,8,74088,778688,82881856,835896888,13858588808,4862885368888,
%T 148388768680888,18861880880549888,8228852188683588288,
%U 28918668584888698888,2888985884683248888875,88474488708885888872808,8889858696418898888882863,8808698038888853888858648
%N Smallest cube containing exactly n 8's.
%C a(n)^(1/3) = A048373(n) is the index of the first occurrence of n in sequence A269248. - _M. F. Hasler_, Feb 21 2016
%H Giovanni Resta, <a href="/A036535/b036535.txt">Table of n, a(n) for n = 0..22</a>
%F a(n) = A048373(n)^3. - _M. F. Hasler_, Feb 21 2016
%t nsmall = Table[Infinity, 20];
%t For[i = 0, i <= 10^6, i++, n0 = Count[IntegerDigits[i^3], 8];
%t If[nsmall[[n0 + 1]] > i^3, nsmall[[n0 + 1]] = i^3]];
%t Cases[nsmall, _?NumberQ] (* _Robert Price_, Mar 21 2020 *)
%Y Cf. A048373, A036527 - A036536 for other digits 0 - 9.
%Y Analog for squares: A036515 = A048353^2.
%K nonn,base
%O 0,2
%A _David W. Wilson_
%E Extended with a(0) = 0 by _M. F. Hasler_, Feb 21 2016
%E a(11)-a(15) from _Giovanni Resta_, Jun 29 2018
| 