login
Inverse permutation to A065174.
1

%I #6 May 02 2017 22:17:15

%S 1,3,7,5,13,2,11,9,25,6,15,4,21,10,19,17,49,14,23,12,29,18,27,8,41,22,

%T 31,20,37,26,35,33,97,30,39,28,45,34,43,24,57,38,47,36,53,42,51,16,81,

%U 46,55,44,61,50,59,40,73,54,63,52,69,58,67,65,193,62,71,60,77,66,75,56

%N Inverse permutation to A065174.

%H Joe Buhler and R. L. Graham, <a href="http://www.cecm.sfu.ca/organics/papers/buhler/index.html">Juggling Drops and Descents</a>, Amer. Math. Monthly, 101, (no. 6) 1994, 507 - 519.

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

%p [seq(Z2N(N2Z(n)-TZ2(abs(N2Z(n)))), n=1..120)];

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

%K nonn

%O 1,2

%A _Antti Karttunen_, Oct 19 2001