OFFSET
0,2
COMMENTS
LINKS
B. Chen, R. Chen, J. Guo, S. Lee et al., On Base 3/2 and its Sequences, arXiv:1808.04304 [math.NT], 2018.
MAPLE
b:= proc(n) `if`(n<1, 0, irem(n, 3, 'q')+b(2*q)*10) end:
a:= n-> b(3^n):
seq(a(n), n=0..20); # Alois P. Heinz, Jun 18 2018
PROG
(PARI) f(n) = if( n<1, 0, f(n\3 * 2) * 10 + n%3);
a(n) = f(3^n); \\ Michel Marcus, Jun 18 2018
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Tanya Khovanova and PRIMES STEP Senior group, Jun 07 2018
STATUS
approved