login
Permutation of Z, obtained by reflecting the juggling sequence A084521 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 12:55:20

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

%T 25,36,23,38,21,32,33,42,27,46,29,44,31,40,41,52,35,48,39,54,37,50,45,

%U 60,49,58,43,62,47,56,57,68,53,70,51,64,55,66,63,76,65,78,59,74,61,72

%N Permutation of Z, obtained by reflecting the juggling sequence A084521 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(A084499_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 A084499_Z2Z := z -> z+`if`((z > 0), A084511(z),`if`((z >= -3),2*(-z), A084521(A084498((-z)-3))));

%Y Inverse: A084530. Cf. also A084498, A084455, A084461, A084491, A084495, A065166.

%K nonn

%O 1,2

%A _Antti Karttunen_, Jun 02 2003