|
%I #14 Dec 22 2023 14:18:35
%S 1,4096,250047,2000376,21300003648,100000721719296,64927000000829448,
%T 14123877000000067,9999699366860000000091,70000000009754982974477,
%U 24647736180000000000817838592,3314969780000000000035268964568841,582244272575941991000000000000826824,2877745360000000000000183218187366976
%N Smallest cube that contains exactly n consecutive internal 0's and no other 0s.
%t Do[ While[a = Flatten[ Position[ IntegerDigits[ k^3], 0]]; Mod[k, 10] == 0 || Length[a] < n || Last[a] - First[a] + 1 != n, k++ ]; Print[k^3], {n, 0, 7} ]
%Y The cube roots are in A066391. Cf. A066371.
%K nonn,base,less
%O 0,2
%A _Robert G. Wilson v_, Dec 23 2001
%E Title clarified, a(7) corrected and a(8)-a(10) from _Sean A. Irvine_, Oct 11 2023
%E a(11) from _Michael S. Branicky_, Nov 15 2023
%E a(12)-a(13) from _Michael S. Branicky_, Dec 22 2023
|
