OFFSET
1,1
COMMENTS
These are called e-type numbers, cf. A163396.
LINKS
MATHEMATICA
Select[Range[21, 500], (id = IntegerDigits[#1]; And @@ EvenQ /@ Most[id] && OddQ[Last[id]]) & ] (* Jean-François Alcover, May 23 2013 *)
eodQ[n_]:=Module[{td=TakeDrop[IntegerDigits[n], -1]}, OddQ[td[[1, 1]]]&&AllTrue[ td[[2]], EvenQ]]; Select[Range[10, 500], eodQ] (* Harvey P. Dale, Aug 06 2022 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
STATUS
approved