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

Author

N. J. A. Sloane

Keywords

• base
• nonn

Links

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

Programs

Mathematica

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