|
%I #9 Nov 14 2018 17:08:06
%S 0,1,2,3,4,7,6,5,8,9,10,19,12,13,22,21,14,23,18,11,20,15,16,25,24,17,
%T 26,27,28,55,30,31,58,57,32,59,36,37,64,39,40,67,66,41,68,63,38,65,42,
%U 43,70,69,44,71,54,29,56,33,34,61,60,35,62,45,46,73,48,49
%N Right-rotate nonzero digits in ternary expansion of n and convert back to decimal.
%C This sequence is a permutation of the nonnegative integers with inverse A321525.
%H Rémy Sigrist, <a href="/A321524/b321524.txt">Table of n, a(n) for n = 0..6561</a>
%H <a href="/index/Per#IntegerPermutation">Index entries for sequences that are permutations of the natural numbers</a>
%F a(3 * n) = 3 * a(n).
%e The first terms, alongside the corresponding ternary representations, are:
%e n a(n) ter(n) ter(a(n))
%e -- ---- ------ ---------
%e 0 0 0 0
%e 1 1 1 1
%e 2 2 2 2
%e 3 3 10 10
%e 4 4 11 11
%e 5 7 12 21
%e 6 6 20 20
%e 7 5 21 12
%e 8 8 22 22
%e 9 9 100 100
%e 10 10 101 101
%e 11 19 102 201
%e 12 12 110 110
%e 13 13 111 111
%e 14 22 112 211
%e 15 21 120 210
%e 16 14 121 112
%e 17 23 122 212
%o (PARI) a(n, base=3) = my (d=digits(n, base), t=select(sign, d), i=-2); for (j=1, #d, if (d[j], d[j]=t[1+(i++%#t)])); fromdigits(d, base)
%Y Cf. A321464, A321525 (inverse).
%K nonn,base
%O 0,3
%A _Rémy Sigrist_, Nov 12 2018
|
