Index of Lucas numbers not containing the number 6.
0, 1, 2, 3, 4, 5, 6, 7, 8, 10, 11, 12, 13, 14, 16, 17, 18, 19, 20, 26, 27, 29, 31, 32, 34, 36, 37, 38, 39, 41, 42, 48, 50, 51, 53, 55, 58, 59, 64, 65, 67, 72, 84, 86, 98, 100, 101, 126, 170
1
This sequence is probably complete.
T. D. Noe, Plot of 49 terms
(Mma) t = {}; Do[d = IntegerDigits[LucasL[n]]; If[! MemberQ[d, 6], AppendTo[t, n]], {n, 0, 1000}]; t
nonn,base
T. D. Noe, Aug 27 2014