login
Permutation of Z, obtained by reflecting the juggling sequence A084452 from positive to negative numbers (with zero thrown at beat 0), folded to N with functions N2Z and Z2N.
7

%I #9 Jul 29 2017 13:12:06

%S 1,10,2,12,4,14,6,8,9,20,3,22,5,24,7,16,17,18,19,32,11,28,13,34,15,26,

%T 27,38,23,30,31,44,21,46,25,36,37,50,29,40,41,42,43,58,33,52,35,48,49,

%U 62,39,64,47,54,55,56,57,72,45,60,61,74,51,76,53,66,67,68,69,70,71,86

%N Permutation of Z, obtained by reflecting the juggling sequence A084452 from positive to negative numbers (with zero thrown at beat 0), folded to N with functions N2Z and Z2N.

%C This permutation consists of three infinite cycles + infinite number of fixed points.

%H A. Karttunen, <a href="/A084507/a084507.scm.txt">Scheme-program for computing this sequence</a>

%H <a href="/index/Per#IntegerPermutation">Index entries for sequences that are permutations of the natural numbers</a>

%p [seq(Z2N(A084455_Z2Z(N2Z(n))),n=1..45)];

%p N2Z := n -> ((-1)^n)*floor(n/2);

%p Z2N := z -> 2*abs(z)+`if`((z < 1),1,0);

%p A084455_Z2Z := z -> z+`if`((z > 0), A084452(z),`if`((z >= -3),2*(-z), A084452(A084454((-z)-3))));

%Y Inverse: A084466. Cf. also A084454, A084461, A084491, A084495, A084499, A065166.

%K nonn

%O 1,2

%A _Antti Karttunen_, Jun 02 2003