%I #8 Nov 14 2018 17:07:21
%S 0,1,2,3,4,7,6,5,8,9,10,19,12,13,16,21,22,25,18,11,20,15,14,17,24,23,
%T 26,27,28,55,30,31,34,57,58,61,36,37,46,39,40,43,48,49,52,63,64,73,66,
%U 67,70,75,76,79,54,29,56,33,32,35,60,59,62,45,38,47,42,41
%N Left-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 A321524.
%H Rémy Sigrist, <a href="/A321525/b321525.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 16 112 121
%e 15 21 120 210
%e 16 22 121 211
%e 17 25 122 221
%o (PARI) a(n, base=3) = my (d=digits(n, base), t=select(sign, d), i=0); for (j=1, #d, if (d[j], d[j]=t[1+(i++%#t)])); fromdigits(d, base)
%Y Cf. A321464, A321524 (inverse).
%K nonn,base
%O 0,3
%A _Rémy Sigrist_, Nov 13 2018
|