Select[Range[500], AllTrue[IntegerDigits[#, 9], OddQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Oct 14 2015 *)
Flatten[Table[FromDigits[#, 9]&/@Tuples[Range[1, 7, 2], n], {n, 3}]] (* Harvey P. Dale, Jun 13 2020 *)