login
A060814
Numbers whose cubes contain more than half the same digit and do not end in 0.
0
1, 2, 7, 36, 106, 164, 173, 612, 671, 707, 763, 764, 942, 999, 1001, 1041, 2232, 2402, 2824, 2953, 3543, 4055, 8121, 9999, 10001, 10002, 10003, 10058, 10601, 11551, 12599, 13464, 13701, 13832, 15477, 16942, 17066, 18821, 19202, 19753, 20001
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
Sequence in context: A266356 A196857 A111908 * A192816 A302895 A302905
KEYWORD
base,easy,nonn
AUTHOR
Erich Friedman, Apr 29 2001
STATUS
approved