login
Delete all odd digits from n.
3

%I #8 Feb 01 2022 23:33:50

%S 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,

%T 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,

%U 6,64,6,66,6,68,6,0,0,2,0,4,0,6,0,8,0,80,8

%N Delete all odd digits from n.

%H T. D. Noe, <a href="/A001613/b001613.txt">Table of n, a(n) for n = 0..1000</a>

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

%K base,nonn

%O 0,3

%A _N. J. A. Sloane_