cp's OEIS Frontend

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

%I A084495 #9 Jul 29 2017 13:08:34
%S A084495 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 A084495 25,36,23,38,21,32,33,42,27,46,29,40,31,44,39,50,35,54,41,52,37,48,49,
%U A084495 60,43,56,47,62,45,58,53,68,57,66,51,70,55,64,65,76,61,78,59,72,63,74
%N A084495 Permutation of Z, obtained by reflecting the juggling sequence A084511 from positive to negative numbers (with zero thrown at beat 0), folded to N with functions N2Z and Z2N.
%C A084495 This permutation consists of three infinite cycles + infinite number of fixed points.
%H A084495 A. Karttunen, <a href="/A084507/a084507.scm.txt">Scheme-program for computing this sequence</a>
%H A084495 <a href="/index/Per#IntegerPermutation">Index entries for sequences that are permutations of the natural numbers</a>
%p A084495 [seq(Z2N(A084495_Z2Z(N2Z(n))),n=1..45)];
%p A084495 N2Z := n -> ((-1)^n)*floor(n/2);
%p A084495 Z2N := z -> 2*abs(z)+`if`((z < 1),1,0);
%p A084495 A084495_Z2Z := z -> z+`if`((z > 0), A084511(z),`if`((z >= -3),2*(-z), A084511(A084494((-z)-3))));
%Y A084495 Inverse: A084496. Cf. also A084494, A084455, A084461, A084491, A084499, A065166.
%K A084495 nonn
%O A084495 1,2
%A A084495 _Antti Karttunen_, Jun 02 2003