login
Lucas numbers with an equal number of odd and even digits.
2

%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