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 A343129 #20 Dec 10 2021 22:58:09
%S A343129 0,1,2,5,8,17,35,170,278,422,494
%N A343129 Numbers that are palindromes in base 3/2.
%C A343129 Next term >= 10^12. - _Joerg Arndt_, Apr 06 2021
%C A343129 Next term > 2^64. - _David Radcliffe_, Dec 10 2021
%H A343129 Matvey Borodin, Hannah Han, Kaylee Ji, Tanya Khovanova, Alexander Peng, David Sun, Isabel Tu, Jason Yang, William Yang, Kevin Zhang, and Kevin Zhao, <a href="https://arxiv.org/abs/1901.09818">Variants of Base 3 over 2</a>, arXiv:1901.09818 [math.NT], 2019.
%H A343129 B. Chen, R. Chen, J. Guo, S. Lee et al., <a href="http://arxiv.org/abs/1808.04304">On Base 3/2 and its sequences</a>, arXiv:1808.04304 [math.NT], 2018.
%e A343129 0: 0
%e A343129 1: 1
%e A343129 2: 2
%e A343129 5: 22
%e A343129 8: 212
%e A343129 17: 21012
%e A343129 35: 212212
%e A343129 170: 2120220212
%e A343129 278: 21221112212
%e A343129 422: 2101100011012
%e A343129 494: 2120010100212
%t A343129 (* All terms <= 500: *)
%t A343129 b = {};
%t A343129 a[n_] := If[n < 1, 0, a[Quotient[n, 3] 2] 10 + Mod[n, 3]];
%t A343129 Do[If[PalindromeQ[a[n]], AppendTo[b, n], Nothing], {n, 0, 500}];
%t A343129 b
%Y A343129 Cf. A024629.
%K A343129 nonn,base,more
%O A343129 0,3
%A A343129 _Wyatt Powers_, Apr 05 2021