|
%I #30 Jul 29 2013 04:59:42
%S 0,1,3,7,2,15,6,4,31,14,12,8,5,63,30,28,24,13,16,9,11,127,62,60,56,29,
%T 48,25,27,32,17,19,23,10,255,126,124,120,61,112,57,59,96,49,51,55,26,
%U 64,33,35,39,18,47,22,20,511,254,252,248,125,240,121,123,224
%N Permutation of nonnegative integers: map each number by lengths of runs of zeros in its Zeckendorf expansion shifted once left to the number which has the same lengths of runs (in the same order, but alternatively of runs of 0's and 1's) in its binary representation.
%C This permutation is based on the fact that by appending one extra zero to the right of Fibonacci number representation of n (aka "Zeckendorf expansion") and then counting the lengths of blocks of consecutive (nonleading) zeros we get bijective correspondence with compositions, and thus also with the binary representation of a unique n. See the chart below:
%C n A014417(n) A014417(A022342(n+1)) Runs of Binary number In dec.
%C [shifted once left] zeros with same runs = a(n)
%C 0: ......0 ......0 [] .....0 0
%C 1: ......1 .....10 [1] .....1 1
%C 2: .....10 ....100 [2] ....11 3
%C 3: ....100 ...1000 [3] ...111 7
%C 4: ....101 ...1010 [1,1] ....10 2
%C 5: ...1000 ..10000 [4] ..1111 15
%C 6: ...1001 ..10010 [2,1] ...110 6
%C 7: ...1010 ..10100 [1,2] ...100 4
%C 8: ..10000 .100000 [5] .11111 31
%C 9: ..10001 .100010 [3,1] ..1110 14
%C 10: ..10010 .100100 [2,2] ..1100 12
%C 11: ..10100 .101000 [1,3] ..1000 8
%C 12: ..10101 .101010 [1,1,1] ...101 5
%C 13: .100000 1000000 [6] 111111 63
%C Are there any other fixed points after 0, 1, 6, 803, 407483 ?
%H Antti Karttunen, <a href="/A227351/b227351.txt">Table of n, a(n) for n = 0..10946</a>
%H OEIS Wiki, <a href="https://oeis.org/wiki/Run-length_encoding">Run-length encoding</a>
%H <a href="/index/Per#IntegerPermutation">Index entries for sequences that are permutations of the natural numbers</a>
%F a(n) = A006068(A048679(n)) = A006068(A106151(2*A003714(n))).
%F This permutation effects following correspondences:
%F a(A000045(n)) = A000225(n-1).
%F a(A027941(n)) = A000975(n).
%F For n >=3, a(A000204(n)) = A000079(n-2).
%o (Scheme): (define (A227351 n) (A006068 (A048679 n)))
%o (define (A227351v2 n) (A006068 (A106151 (* 2 (A003714 n))))) ;; Alternative definition.
%Y Inverse permutation: A227352. Cf. also A003714, A014417, A006068, A048679.
%Y Could be further composed with A075157 or A075159, also A129594.
%K nonn,base
%O 0,3
%A _Antti Karttunen_, Jul 08 2013
| 