OFFSET
0,2
MATHEMATICA
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} ]
CROSSREFS
KEYWORD
nonn,base,less
AUTHOR
Robert G. Wilson v, Dec 23 2001
EXTENSIONS
Title clarified, a(7) corrected and a(8)-a(10) from Sean A. Irvine, Oct 11 2023
a(11) from Michael S. Branicky, Nov 15 2023
a(12)-a(13) from Michael S. Branicky, Dec 22 2023
STATUS
approved