%I #11 Feb 14 2017 23:07:42
%S 0,2,4,6,8,10,12,14,16,18,30,32,34,36,38,50,52,54,56,58,70,72,74,76,
%T 78,90,92,94,96,98,210,212,214,216,218,230,232,234,236,238,250,252,
%U 254,256,258,270,272,274,276,278,290,292,294,296,298,410,412,414
%N Even numbers in which parity of digits alternates.
%H Reinhard Zumkeller, <a href="/A030143/b030143.txt">Table of n, a(n) for n = 1..10000</a>
%H <a href="/index/Ar#10-automatic">Index entries for 10-automatic sequences</a>.
%F (1 - a(n) mod 2) * A228710(a(n)) = 1. - _Reinhard Zumkeller_, Aug 31 2013
%t id[n_]:=IntegerDigits[n]; t={}; Do[If[Length[id[n]]==1, AppendTo[t,n],If[Union[Abs[Differences[Boole /@ EvenQ[id[n]]]]]=={1}, AppendTo[t,n]]], {n,0,414,2}]; t (* _Jayanta Basu_, May 07 2013 *)
%o (Haskell)
%o a030143 n = a030143_list !! (n-1)
%o a030143_list = filter even a030141_list
%o -- _Reinhard Zumkeller_, Aug 31 2013
%Y Cf. A030142, A062285, intersection of A005843 and A030141.
%K nonn,base,easy
%O 1,2
%A _Patrick De Geest_
%E Offset corrected by _Reinhard Zumkeller_, Aug 31 2013