%I #15 Dec 21 2016 16:19:43
%S 18,29,47,76,1364,271443,710647,12752043,20633239,33385282,54018521,
%T 2537720636,62113250390418,1803423556807921,221806434537978679,
%U 667714778405043259651218,31368381450514812615027603
%N Lucas numbers with an equal number of odd and even digits.
%H Harvey P. Dale, <a href="/A144833/b144833.txt">Table of n, a(n) for n = 1..126</a>
%e 54018521 is a Lucas number with an equal number of odd and even digits.
%t fQ[n_] := Block[{id = IntegerDigits@ n}, Length@ Select[id, OddQ@ # &] == Length@ id/2]; lst = {}; Do[ lu = LucasL@ n; If[ fQ@ lu, AppendTo[lst, lu]], {n, 300}]; lst (* _Robert G. Wilson v_, Sep 24 2008 *)
%t Select[LucasL[Range[150]],Count[IntegerDigits[#],_?OddQ] == Count[ IntegerDigits[ #], _?EvenQ]&] (* _Harvey P. Dale_, Dec 21 2016 *)
%Y Cf. A000032, A144205, A144226.
%K nonn,base
%O 1,1
%A _Parthasarathy Nambi_, Sep 22 2008
%E More terms from _Robert G. Wilson v_, Sep 24 2008