This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A265746 #11 Jul 21 2023 04:30:32 %S A265746 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 A265746 85,90,91,92,93,94,99,108,109,110,111,112,117,118,119,120,121,162,243, %U A265746 244,245,246,247,252,253,254,255,256,261,270,271,272,273 %N A265746 Jacobsthal greedy base (A265747) interpreted as base-3 numbers, then shown in decimal. %C A265746 Analogously to "Fibbinary numbers" (A003714) and "Catquaternary numbers" (A244161), this sequence could be called "Jacoternary numbers". %H A265746 Antti Karttunen, <a href="/A265746/b265746.txt">Table of n, a(n) for n = 0..10923</a> %F A265746 a(0) = 0; for n >= 1, a(n) = 3^(A130249(n)-2) + a(n - A001045(A130249(n))). %t A265746 a[n_] := FromDigits[IntegerDigits[A265747[n]], 3]; Array[a, 100, 0] (* _Amiram Eldar_, Jul 21 2023 using A265747[n] *) %o A265746 (Scheme, with memoization-macro definec) %o A265746 (definec (A265746 n) (if (zero? n) n (+ (A000244 (- (A130249 n) 2)) (A265746 (- n (A001045 (A130249 n))))))) %o A265746 (PARI) a(n) = fromdigits(digits(A265747(n)), 3); \\ _Amiram Eldar_, Jul 21 2023, using A265747(n) %Y A265746 Cf. A000244, A001045, A130249. %Y A265746 Cf. A265745, A265747. %Y A265746 Cf. also A003714, A244161. %K A265746 nonn,base %O A265746 0,3 %A A265746 _Antti Karttunen_, Dec 17 2015