A104693 Numbers n such that in n^3, number of odd digits is larger than number of even digits.

1, 5, 7, 8, 9, 11, 13, 15, 17, 23, 25, 26, 27, 28, 31, 33, 34, 37, 39, 43, 45, 46, 48, 49, 51, 55, 56, 57, 58, 59, 71, 73, 77, 79, 81, 82, 83, 91, 95, 97, 98, 99, 101, 103, 105, 106, 108, 109, 110, 111, 115, 117, 119, 121, 125, 128, 133, 136, 137, 146, 147

Offset: 1

Author

Zak Seidov, Mar 18 2005

Keywords

• easy
• nonn
• base

Links

• Vincenzo Librandi, Table of n, a(n) for n = 1..1000

Crossrefs

Cf. A104639, A104640, A104641, A104692, A104694, A104695.

Programs

Mathematica

odedQ[n_]:=Module[{idn3=IntegerDigits[n^3]},Count[idn3,?EvenQ]<Count[ idn3,?OddQ]]; Select[Range[200],odedQ] (* Harvey P. Dale, May 16 2012 *)

Extensions

More terms from Harvey P. Dale, May 16 2012