0,2
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} ]
The cube roots are in A066391. Cf. A066371.
Sequence in context: A016782 A017488 A017620 * A016806 A195660 A016902
Adjacent sequences: A066387 A066388 A066389 * A066391 A066392 A066393
nonn
Robert G. Wilson v (rgwv(AT)rgwv.com), Dec 23 2001
