A048370 - OEIS

%I #20 Feb 16 2025 08:32:40

%S 5,25,136,715,1526,11828,8121,115798,319405,1771087,2179693,11665419,

%T 38160335,176024528,1367063798,3257101805,9109186828,38598478444,

%U 136736651535,380814792667,821922685008

%N a(n)^3 is smallest cube containing exactly n 5's.

%H Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/CubicNumber.html">Cubic Number</a>

%t nsmall = Table[Infinity, 15];

%t For[i = 0, i <= 10^6, i++, n0 = Count[IntegerDigits[i^3], 5];

%t   If[nsmall[[n0]] > i, nsmall[[n0]] = i]];

%t Cases[nsmall, _?NumberQ] (* _Robert Price_, Mar 20 2020 *)

%Y Cf. A036532, A048365, A048366, A048367, A048368, A048369, A048371, A048372, A048373, A048374.

%K nonn,base,more,changed

%O 1,1

%A _Patrick De Geest_, Mar 15 1999

%E a(14) from _Michel ten Voorde_ Jun 13 2003

%E a(15)-a(20) from _Lars Blomberg_, Jun 12 2011

%E a(21) from _Giovanni Resta_, Jun 29 2018