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,1

Comments

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

Links

Table of n, a(n) for n=1..55.

Index entries for 10-automatic sequences

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 *)

Prog

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

Crossrefs

Sequence in context: A211526 A211528 A297841 * A129958 A082227 A134062

Adjacent sequences: A098941 A098942 A098943 * A098945 A098946 A098947

Keyword

base,easy,nonn

Author

Eric Angelini, Oct 21 2004

Status

approved