|
%I #9 Jul 20 2020 06:44:55
%S 2,1,0,5,4,3,2,1,0,17,16,15,14,13,12,11,10,9,8,7,6,5,4,3,2,1,0,53,52,
%T 51,50,49,48,47,46,45,44,43,42,41,40,39,38,37,36,35,34,33,32,31,30,29,
%U 28,27,26,25,24,23,22,21,20,19,18,17,16,15,14,13,12,11,10,9,8,7,6,5,4,3,2
%N Values of the 2-complement of n in ternary representation.
%C a(A134026(n)) < A134026(n);
%C a(A003462(n)) = A003462(n);
%C a(A134025(n)) >= A134025(n).
%H Reinhard Zumkeller, <a href="/A171960/b171960.txt">Table of n, a(n) for n = 0..10000</a>
%F a(n) = if n<3 then 2 - n else 3*a(floor(n/3)) + 2 - n mod 3.
%o (PARI) a(n) = 3^(if(n,logint(n,3))+1) - 1 - n; \\ _Kevin Ryde_, Jul 16 2020
%Y Cf. A007089, A035327, A061601.
%K nonn
%O 0,1
%A _Reinhard Zumkeller_, Jan 20 2010
|
