A001613 Delete all odd digits from n.

0, 0, 2, 0, 4, 0, 6, 0, 8, 0, 0, 0, 2, 0, 4, 0, 6, 0, 8, 0, 20, 2, 22, 2, 24, 2, 26, 2, 28, 2, 0, 0, 2, 0, 4, 0, 6, 0, 8, 0, 40, 4, 42, 4, 44, 4, 46, 4, 48, 4, 0, 0, 2, 0, 4, 0, 6, 0, 8, 0, 60, 6, 62, 6, 64, 6, 66, 6, 68, 6, 0, 0, 2, 0, 4, 0, 6, 0, 8, 0, 80, 8

Offset

0,3

Links

T. D. Noe, Table of n, a(n) for n = 0..1000

Mathematica

Table[FromDigits[DeleteCases[IntegerDigits[n], _?(OddQ[#] &)]], {n, 0, 100}] (* T. D. Noe, Aug 09 2012 *)

Crossrefs

Sequence in context: A319813 A366562 A071648 * A237420 A130891 A091371

Adjacent sequences: A001610 A001611 A001612 * A001614 A001615 A001616

Keyword

base,nonn

Author

N. J. A. Sloane

Status

approved