%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