This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A351718 #4 Feb 20 2022 21:44:33
%S A351718 0,3,5,17,85,107,219,1161,1365,1619,2047,4097,6141,19801,25027,68961,
%T A351718 91213,134337,1540157,1804859,11877549,37696497,44092437,142710801,
%U A351718 548269377,3387848595,4073444175,8226780335,31029923047,64662095631,67947722943,126590440407,2145176968607
%N A351718 Numbers whose binary and maximal Lucas representations are both palindromic.
%H A351718 <a href="/index/Pac#palindromes">Index entries for sequences related to palindromes</a>.
%e A351718 The first 10 terms are:
%e A351718 n a(n) A007088(a(n)) A130311(a(n))
%e A351718 ----------------------------------------
%e A351718 1 0 0 0
%e A351718 2 3 11 11
%e A351718 3 5 101 101
%e A351718 4 17 10001 11111
%e A351718 5 85 1010101 101101101
%e A351718 6 107 1101011 111010111
%e A351718 7 219 11011011 10110101101
%e A351718 8 1161 10010001001 11011111111011
%e A351718 9 1365 10101010101 101010101010101
%e A351718 10 1619 11001010011 101111010111101
%t A351718 lazy = Select[IntegerDigits[Range[10^6], 2], SequenceCount[#, {0, 0}] == 0 &]; t = Total[# * Reverse @ LucasL[Range[0, Length[#] - 1]]] & /@ lazy; s = FromDigits /@ lazy[[TakeWhile[Flatten[FirstPosition[t, #] & /@ Range[Max[t]]], NumberQ]]]; Join[{0}, Select[Position[s, _?PalindromeQ] // Flatten, PalindromeQ[IntegerDigits[#, 2]] &]]
%Y A351718 Intersection of A006995 and A351717.
%Y A351718 Cf. A007088, A130310, A351713.
%K A351718 nonn,base
%O A351718 1,2
%A A351718 _Amiram Eldar_, Feb 17 2022