cp's OEIS Frontend

A084455 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.

%I A084455 #9 Jul 29 2017 13:12:06
%S A084455 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 A084455 27,38,23,30,31,44,21,46,25,36,37,50,29,40,41,42,43,58,33,52,35,48,49,
%U A084455 62,39,64,47,54,55,56,57,72,45,60,61,74,51,76,53,66,67,68,69,70,71,86
%N A084455 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 A084455 This permutation consists of three infinite cycles + infinite number of fixed points.
%H A084455 A. Karttunen, <a href="/A084507/a084507.scm.txt">Scheme-program for computing this sequence</a>
%H A084455 <a href="/index/Per#IntegerPermutation">Index entries for sequences that are permutations of the natural numbers</a>
%p A084455 [seq(Z2N(A084455_Z2Z(N2Z(n))),n=1..45)];
%p A084455 N2Z := n -> ((-1)^n)*floor(n/2);
%p A084455 Z2N := z -> 2*abs(z)+`if`((z < 1),1,0);
%p A084455 A084455_Z2Z := z -> z+`if`((z > 0), A084452(z),`if`((z >= -3),2*(-z), A084452(A084454((-z)-3))));
%Y A084455 Inverse: A084466. Cf. also A084454, A084461, A084491, A084495, A084499, A065166.
%K A084455 nonn
%O A084455 1,2
%A A084455 _Antti Karttunen_, Jun 02 2003