|
%I #16 Oct 11 2019 04:07:14
%S 4,55,36,716,1188,4055,13832,18821,190806,1542023,3971816,13881356,
%T 55009989,154057624,551727536,1881662989,4014051821,15448244536,
%U 185043243523,405480132286,550651031786,4425284190954,4881712198556
%N a(n)^3 is smallest cube containing exactly n 6's.
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/CubicNumber.html">Cubic Number</a>
%t a[n_] := Module[{i = 0}, While[DigitCount[i^3][[6]] != n, i++ ]; i]; (* Sam Handler (sam_5_5_5_0(AT)yahoo.com), Aug 27 2006 *)
%Y Cf. A036533, A048365, A048366, A048367, A048368, A048369, A048370, 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 27 2006
%E a(15)-a(20) from _Lars Blomberg_, Jun 12 2011
%E a(21)-a(23) from _Giovanni Resta_, Jun 29 2018
|
