|
%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_
|
