%I #11 Jul 21 2023 04:30:32
%S 0,1,2,3,4,9,10,11,12,13,18,27,28,29,30,31,36,37,38,39,40,81,82,83,84,
%T 85,90,91,92,93,94,99,108,109,110,111,112,117,118,119,120,121,162,243,
%U 244,245,246,247,252,253,254,255,256,261,270,271,272,273
%N Jacobsthal greedy base (A265747) interpreted as base-3 numbers, then shown in decimal.
%C Analogously to "Fibbinary numbers" (A003714) and "Catquaternary numbers" (A244161), this sequence could be called "Jacoternary numbers".
%H Antti Karttunen, <a href="/A265746/b265746.txt">Table of n, a(n) for n = 0..10923</a>
%F a(0) = 0; for n >= 1, a(n) = 3^(A130249(n)-2) + a(n - A001045(A130249(n))).
%t a[n_] := FromDigits[IntegerDigits[A265747[n]], 3]; Array[a, 100, 0] (* _Amiram Eldar_, Jul 21 2023 using A265747[n] *)
%o (Scheme, with memoization-macro definec)
%o (definec (A265746 n) (if (zero? n) n (+ (A000244 (- (A130249 n) 2)) (A265746 (- n (A001045 (A130249 n)))))))
%o (PARI) a(n) = fromdigits(digits(A265747(n)), 3); \\ _Amiram Eldar_, Jul 21 2023, using A265747(n)
%Y Cf. A000244, A001045, A130249.
%Y Cf. A265745, A265747.
%Y Cf. also A003714, A244161.
%K nonn,base
%O 0,3
%A _Antti Karttunen_, Dec 17 2015