OFFSET
0,2
EXAMPLE
173^3=5177717, whose digits are more than half 7's.
MATHEMATICA
nchdQ[n_]:=Module[{dc=DigitCount[n^3], idn=IntegerDigits[n^3]}, Max[ dc]>Length[ idn]/2 && Last[idn]>0]; Select[Range[21000], nchdQ] (* Harvey P. Dale, Jul 13 2012 *)
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Erich Friedman, Apr 29 2001
STATUS
approved