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
Links
- Vincenzo Librandi, Table of n, a(n) for n = 1..1000
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