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

18, 29, 47, 76, 1364, 271443, 710647, 12752043, 20633239, 33385282, 54018521, 2537720636, 62113250390418, 1803423556807921, 221806434537978679, 667714778405043259651218, 31368381450514812615027603

Offset

1,1

Links

Harvey P. Dale, Table of n, a(n) for n = 1..126

Example

54018521 is a Lucas number with an equal number of odd and even digits.

Mathematica

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 *)
Select[LucasL[Range[150]], Count[IntegerDigits[#], _?OddQ] == Count[ IntegerDigits[ #], _?EvenQ]&] (* Harvey P. Dale, Dec 21 2016 *)

Crossrefs

Cf. A000032, A144205, A144226.

Sequence in context: A259642 A045000 A205871 * A259635 A366964 A032612

Adjacent sequences: A144830 A144831 A144832 * A144834 A144835 A144836

Keyword

nonn,base

Author

Parthasarathy Nambi, Sep 22 2008

Extensions

More terms from Robert G. Wilson v, Sep 24 2008

Status

approved