|
%I #19 Mar 27 2020 05:37:36
%S 3,28,138,587,612,2824,27654,29603,131468,1312748,1616488,2811574,
%T 49629974,139796852,281986403,1264554822,6146857824,16162692208,
%U 60598584603,229717543765,606069984352,2811738231378,5869673191741
%N a(n)^3 is smallest cube containing exactly n 2's.
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/CubicNumber.html">Cubic Number</a>
%t a[n_] := Module[{i}, i = 1; While[DigitCount[i^3][[2]] != n, i++ ]; i]; (* Sam Handler (sam_5_5_5_0(AT)yahoo.com), Aug 23 2006 *)
%Y Cf. A036529, A048365, A048366, A048368, A048369, A048370, A048371, A048372, A048373, A048374.
%K nonn,base,more
%O 1,1
%A _Patrick De Geest_, Mar 15 1999
%E a(14) from Sam Handler (sam_5_5_5_0(AT)yahoo.com), Aug 23 2006
%E a(15)-a(20) from _Lars Blomberg_, Jun 12 2011
%E a(21)-a(22) from _Giovanni Resta_, Jun 29 2018
%E a(23) from _Giovanni Resta_, Mar 27 2020
|
