|
%I #10 Feb 14 2017 23:02:19
%S 0,2,4,6,8,20,22,24,26,28,40,42,44,46,48,60,62,64,66,68,80,82,84,86,
%T 88,110,112,114,116,118,130,132,134,136,138,150,152,154,156,158,170,
%U 172,174,176,178,190,192,194,196,198,200,202,204,206,208,220,222,224,226
%N Even numbers having an even sum of digits in their decimal representation.
%C a(n) = A014263(n) for n <= 25;
%C intersection of A005843 and A054683: A059841(a(n))*(1-A179081(a(n)))=1;
%C complement of A179083 with respect to A005843;
%C complement of A179084 with respect to A054683;
%C a(n) mod 2 = 0 and A007953(a(n)) mod 2 = 0.
%H R. Zumkeller, <a href="/A179082/b179082.txt">Table of n, a(n) for n = 1..1000</a>
%H <a href="/index/Ar#10-automatic">Index entries for 10-automatic sequences</a>.
%H <a href="/index/Coi#Colombian">Index entries for Colombian or self numbers and related sequences</a>
%t Select[Range[0,250,2],EvenQ[Total[IntegerDigits[#]]]&] (* _Harvey P. Dale_, Mar 19 2012 *)
%K base,nonn,easy
%O 1,2
%A _Reinhard Zumkeller_, Jun 28 2010
|
