A321524 - OEIS

%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