A098944 Numbers where 8 is the only even decimal digit.

8, 18, 38, 58, 78, 81, 83, 85, 87, 88, 89, 98, 118, 138, 158, 178, 181, 183, 185, 187, 188, 189, 198, 318, 338, 358, 378, 381, 383, 385, 387, 388, 389, 398, 518, 538, 558, 578, 581, 583, 585, 587, 588, 589, 598, 718, 738, 758, 778, 781, 783, 785, 787, 788, 789

Offset: 1

Author

Eric Angelini, Oct 21 2004

Keywords

• base
• easy
• nonn

Comments

This is a 10-automatic language. - Charles R Greathouse IV, Oct 05 2011

Links

• Index entries for 10-automatic sequences

Programs

Mathematica

Select[Range[800],DigitCount[#,10,8]>0&&Table[DigitCount[#,10,n],{n,{0,2,4,6}}]=={0,0,0,0}&] (* Harvey P. Dale, Mar 22 2015 *)

Perl

for (0..1000) {
    print "$_, " if (/^[135789]*8[135789]*$/)
} # Charles R Greathouse IV, Oct 05 2011