A007928 Numbers containing an even digit.

0, 2, 4, 6, 8, 10, 12, 14, 16, 18, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 32, 34, 36, 38, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 52, 54, 56, 58, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 72, 74, 76, 78, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 92, 94, 96, 98, 100

Offset

1,2

Comments

Or, numbers whose product of digits is even.

Complement of A014261; A196563(a(n)) > 0. - Reinhard Zumkeller, Oct 04 2011

Links

Reinhard Zumkeller, Table of n, a(n) for n = 1..10000

F. Smarandache, Only Problems, Not Solutions!, Xiquan Publ., Phoenix-Chicago, 1993.

Index entries for 10-automatic sequences.

Formula

a(n) ~ n. - Charles R Greathouse IV, Sep 07 2012

Mathematica

Select[Range[0, 100], AnyTrue[IntegerDigits[#], EvenQ]&] (* Harvey P. Dale, May 16 2026 *)

Prog

(Magma) [ n : n in [0..129] | IsEven(&*Intseq(n, 10)) ];
(Haskell)
import Data.List (findIndices)
a007928 n = a007928_list !! (n-1)
a007928_list = findIndices (> 0) a196563_list
-- Reinhard Zumkeller, Oct 04 2011
(PARI) is(n)=vecmin(Set(digits(n)%2))==0 \\ Charles R Greathouse IV, Feb 14 2017

Crossrefs

Sequence in context: A055960 A387682 A351626 * A257219 A092451 A214673

Adjacent sequences: A007925 A007926 A007927 * A007929 A007930 A007931

Keyword

nonn,base,easy

Author

R. Muller

Status

approved