A036535 Smallest cube containing exactly n 8's.
0, 8, 74088, 778688, 82881856, 835896888, 13858588808, 4862885368888, 148388768680888, 18861880880549888, 8228852188683588288, 28918668584888698888, 2888985884683248888875, 88474488708885888872808, 8889858696418898888882863, 8808698038888853888858648
Offset: 0
Links
- Giovanni Resta, Table of n, a(n) for n = 0..22
Crossrefs
Programs
-
Mathematica
nsmall = Table[Infinity, 20]; For[i = 0, i <= 10^6, i++, n0 = Count[IntegerDigits[i^3], 8]; If[nsmall[[n0 + 1]] > i^3, nsmall[[n0 + 1]] = i^3]]; Cases[nsmall, ?NumberQ] (* _Robert Price, Mar 21 2020 *)
Formula
a(n) = A048373(n)^3. - M. F. Hasler, Feb 21 2016
Extensions
Extended with a(0) = 0 by M. F. Hasler, Feb 21 2016
a(11)-a(15) from Giovanni Resta, Jun 29 2018
Comments