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 A351713 #4 Feb 20 2022 21:45:50
%S A351713 0,9,31,975,297097,816867,4148165871,152488124529,1632977901693,
%T A351713 11162529166917,11925833175477,3047549778123957,3894487365191355,
%U A351713 8920885515768255
%N A351713 Numbers whose binary and minimal Lucas representations are both palindromic.
%H A351713 <a href="/index/Pac#palindromes">Index entries for sequences related to palindromes</a>.
%e A351713 n a(n) A007088(a(n)) A130310(a(n))
%e A351713 ----------------------------------------------------------
%e A351713 1 0 0 0
%e A351713 2 9 1001 10001
%e A351713 3 31 11111 10000001
%e A351713 4 975 1111001111 100010000010001
%e A351713 5 297097 1001000100010001001 100001000000101000000100001
%t A351713 lucasPalQ[n_] := Module[{s = {}, m = n, k = 1}, While[m > 0, If[m == 1, k = 1; AppendTo[s, k]; m = 0, If[m == 2, k = 0; AppendTo[s, k]; m = 0, While[LucasL[k] <= m, k++]; k--; AppendTo[s, k]; m -= LucasL[k]; k = 1]]]; PalindromeQ[IntegerDigits[Total[2^s], 2]]]; Join[{0}, Select[Range[1, 10^6, 2], PalindromeQ[IntegerDigits[#, 2]] && lucasPalQ[#] &]]
%Y A351713 Intersection of A006995 and A351712.
%Y A351713 Subsequence of A054770.
%Y A351713 Cf. A007088, A130310.
%Y A351713 Similar sequences: A095309, A331193, A331894, A351718.
%K A351713 nonn,base,more
%O A351713 1,2
%A A351713 _Amiram Eldar_, Feb 17 2022