Index of Lucas numbers not containing the number 4.
0, 1, 2, 4, 5, 6, 7, 9, 10, 11, 12, 13, 16, 17, 18, 20, 22, 24, 25, 33, 35, 36, 40, 43, 44, 45, 49, 53, 54, 56, 57, 58, 62, 65, 69, 78, 80, 84, 97, 102, 200, 203
1
This sequence is probably complete.
T. D. Noe, Plot of 42 terms
(Mma) t = {}; Do[d = IntegerDigits[LucasL[n]]; If[! MemberQ[d, 4], AppendTo[t, n]], {n, 0, 1000}]; t
nonn,base
T. D. Noe, Aug 27 2014