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.

Adjacent sequences: A066387 A066388 A066389 this_sequence A066391 A066392 A066393

Sequence in context: A016782 A017488 A017620 this_sequence A016806 A016902 A017688

nonn

Robert G. Wilson v (rgwv(AT)rgwv.com), Dec 23 2001