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 A095309 #16 Jan 11 2020 21:18:33 %S A095309 0,1,3,9,27,33,51,127,1755,2805,10437,71377,547233,1007727,2924109, %T A095309 3358515,3460299,59768775,977921175,1022225871,1769996491,5606742245, %U A095309 13759209651,15569747991,120793923335,426202820195,6287935078637,21296868044633,25068131362413 %N A095309 Numbers such that both their binary and Zeckendorf representations are palindromic. %H A095309 Chai Wah Wu, <a href="/A095309/b095309.txt">Table of n, a(n) for n = 1..38</a> %t A095309 fbz[n_] := Block[{k = Floor[ Log[ GoldenRatio, n*Sqrt[5]]], t = n, a = {}}, While[k > 1, If[Fibonacci[k] <= t, t = t - Fibonacci[k]; AppendTo[a, 1], AppendTo[a, 0]]; k-- ]; a]; Do[b = IntegerDigits[2n + 1, 2]; If[b == Reverse[b], f = fbz[2n + 1]; If[f == Reverse[f], Print[2n + 1]]], {n, 0, 10^9}] %Y A095309 Intersection of A006995 and A094202. %K A095309 nonn,base %O A095309 1,3 %A A095309 _Robert G. Wilson v_, Jun 01 2004 %E A095309 a(22)-a(29) from _Chai Wah Wu_, Jun 14 2018 %E A095309 a(1) = 0 added by _Amiram Eldar_, Jan 11 2020