OFFSET
0,3
COMMENTS
Next term >= 10^12. - Joerg Arndt, Apr 06 2021
Next term > 2^64. - David Radcliffe, Dec 10 2021
LINKS
Matvey Borodin, Hannah Han, Kaylee Ji, Tanya Khovanova, Alexander Peng, David Sun, Isabel Tu, Jason Yang, William Yang, Kevin Zhang, and Kevin Zhao, Variants of Base 3 over 2, arXiv:1901.09818 [math.NT], 2019.
B. Chen, R. Chen, J. Guo, S. Lee et al., On Base 3/2 and its sequences, arXiv:1808.04304 [math.NT], 2018.
EXAMPLE
0: 0
1: 1
2: 2
5: 22
8: 212
17: 21012
35: 212212
170: 2120220212
278: 21221112212
422: 2101100011012
494: 2120010100212
MATHEMATICA
(* All terms <= 500: *)
b = {};
a[n_] := If[n < 1, 0, a[Quotient[n, 3] 2] 10 + Mod[n, 3]];
Do[If[PalindromeQ[a[n]], AppendTo[b, n], Nothing], {n, 0, 500}];
b
CROSSREFS
KEYWORD
nonn,base,more
AUTHOR
Wyatt Powers, Apr 05 2021
STATUS
approved