login
Base-3 reversal of n (written in base 10).
37

%I #46 Aug 06 2024 09:56:00

%S 0,1,2,1,4,7,2,5,8,1,10,19,4,13,22,7,16,25,2,11,20,5,14,23,8,17,26,1,

%T 28,55,10,37,64,19,46,73,4,31,58,13,40,67,22,49,76,7,34,61,16,43,70,

%U 25,52,79,2,29,56,11,38,65,20,47,74,5,32,59,14,41,68,23,50,77,8,35,62,17,44,71

%N Base-3 reversal of n (written in base 10).

%H Reinhard Zumkeller, <a href="/A030102/b030102.txt">Table of n, a(n) for n = 0..10000</a>

%H Michael Gilleland, <a href="/selfsimilar.html">Some Self-Similar Integer Sequences</a>

%H Lukas Spiegelhofer, <a href="https://arxiv.org/abs/1709.05651">A digit reversal property for an analogue of Stern's sequence</a>, arXiv:1709.05651 [math.NT], 2017. See Theorem 1.1.

%F a(n) = t(n,0) with t(n,r) = if n=0 then r else t(floor(n/3),r*3+(n mod 3)). - _Reinhard Zumkeller_, Mar 04 2010

%F G.f. G(x) satisfies: G(x) = (1+x+x^2)*G(x^3) - (1+2*x)*(x + 2*Sum_{m>=0} 3^m*x^(3^(m+1)+1)/(x^3-1). - _Robert Israel_, Dec 24 2015

%e a(17) = 25 because 17 in base 3 is 122, and backwards that is 221, which is 25 in base 10.

%e a(18) = 2 because 18 in base 3 is 200, and backwards that is 2.

%p a030102:= proc(n) option remember;

%p local y;

%p y:= n mod 3;

%p 3^ilog[3](n)*y + procname((n-y)/3)

%p end proc:

%p for i from 0 to 2 do a030102(i):= i od:

%p seq(a030102(i),i=0..100); # _Robert Israel_, Dec 24 2015

%p # alternative

%p A030102 := proc(n)

%p local r ;

%p r := ListTools[Reverse](convert(n,base,3)) ;

%p add(op(i,r)*3^(i-1),i=1..nops(r)) ;

%p end proc: # _R. J. Mathar_, May 28 2016

%t A030102[n_] := FromDigits[Reverse@IntegerDigits[n, 3], 3] (* _JungHwan Min_, Dec 23 2015 *)

%t FromDigits[#,3]&/@(Reverse/@IntegerDigits[Range[0,80],3]) (* _Harvey P. Dale_, Feb 05 2020 *)

%o (PARI) a(n,b=3)=subst(Polrev(base(n,b)),x,b) /* where */

%o base(n,b)={my(a=[n%b]);while(0<n\=b,a=concat(n%b,a));a} \\ _M. F. Hasler_, Nov 04 2011

%o (PARI) a(n) = fromdigits(Vecrev(digits(n, 3)), 3); \\ _Michel Marcus_, Oct 10 2017

%o (Haskell)

%o a030102 = foldl (\v d -> 3 * v + d) 0 . a030341_row

%o -- _Reinhard Zumkeller_, Dec 16 2013

%Y Cf. A134028, A030101 - A030108, A004086, A134028.

%Y Cf. A030341.

%Y Cf. A263273 for a bijective variant.

%K nonn,base,look,easy

%O 0,3

%A _David W. Wilson_