A060814 Numbers whose cubes contain more than half the same digit and do not end in 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

Links

Table of n, a(n) for n=0..40.

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

Adjacent sequences: A060811 A060812 A060813 * A060815 A060816 A060817

Keyword

base,easy,nonn

Author

Erich Friedman, Apr 29 2001

Status

approved