OFFSET
0,1
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 0..10000
FORMULA
MATHEMATICA
a[n_] := 3^(1 + Floor[Log[3, n]]) - n - 1; a[0] = 2; Array[a, 100] (* Amiram Eldar, Apr 03 2025 *)
PROG
(PARI) a(n) = 3^(if(n, logint(n, 3))+1) - 1 - n; \\ Kevin Ryde, Jul 16 2020
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Reinhard Zumkeller, Jan 20 2010
STATUS
approved