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 A134026 #14 Apr 03 2025 01:34:05 %S A134026 2,5,6,7,8,14,15,16,17,18,19,20,21,22,23,24,25,26,41,42,43,44,45,46, %T A134026 47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69, %U A134026 70,71,72,73,74,75,76,77,78,79,80,122,123,124,125,126,127,128,129,130,131 %N A134026 Numbers that are in balanced ternary representation longer than in ternary representation. %C A134026 A157671 is a subsequence. - _Reinhard Zumkeller_, Jan 20 2010 %H A134026 Amiram Eldar, <a href="/A134026/b134026.txt">Table of n, a(n) for n = 1..10000</a> %F A134026 a(n) = g(n,0,0) with g(n,m,k) = if n=0 then k else if k=3^m-1 then g(n-1,m,3*(k+1)/2+1) else g(n-1,m,k+1). %F A134026 A134021(a(n)) = A081604(a(n)) + 1. %F A134026 A171960(a(n)) < a(n). - _Reinhard Zumkeller_, Jan 20 2010 %t A134026 Select[Range[150], Ceiling[Log[3, 2*#+1]] > IntegerLength[#, 3] &] (* _Amiram Eldar_, Apr 03 2025 *) %Y A134026 Complement of A134025. %Y A134026 Cf. A081604, A134021, A157671, A171960. %K A134026 nonn,base %O A134026 1,1 %A A134026 _Reinhard Zumkeller_, Oct 19 2007