Search: id:A064579
Results 1-1 of 1 results found.

%I A064579
%S A064579 2,1,4,3,6,8,5,10,7,12,14,9,16,18,11,20,13,22,24,15,26,17,28,30,19,32,
%T A064579 34,21,36,23,38,40,25,42,44,27,46,29,48,50,31,52,33,54,56,35,58,60,37,
%U A064579 62,39,64,66,41,68,43,70,72,45,74,76,47,78,49,80,82,51,84,86,53,88,55
%N A064579 Inverse permutation to A054082.
%H A064579 <a href="Sindx_Per.html#IntegerPermutation">Index entries for sequences 
               that are permutations of the natural numbers</a>
%p A064579 A054082 := proc(nmax) local a,k,n,p ; a := [2,1] ; while nops(a) < nmax 
               do n := nops(a)+1 : k := floor((n+1)/2) ; p := 1; while p in a do 
               p := p+1 ; od ; if n mod 2 = 1 then a := [op(a), p+k-1] ; else a 
               := [op(a), p] ; fi ; od ; RETURN(a) ; end: A064579 := proc(a054082) 
               local a,n,ainv ; n := 1; a := [] ; while member(n,a054082,'ainv') 
               do a := [op(a),ainv] ; n := n+1; od; RETURN(a) ; end: a054082 := 
               A054082(200) : a064579 := A064579(a054082) : print(op(a064579)) ; 
               - R. J. Mathar (mathar(AT)strw.leidenuniv.nl), Jun 27 2007
%Y A064579 Sequence in context: A071065 A035552 A114862 this_sequence A105361 A125154 
               A077912
%Y A064579 Adjacent sequences: A064576 A064577 A064578 this_sequence A064580 A064581 
               A064582
%K A064579 nonn,easy
%O A064579 1,1
%A A064579 N. J. A. Sloane (njas(AT)research.att.com), Oct 16 2001
%E A064579 Corrected and extended by R. J. Mathar (mathar(AT)strw.leidenuniv.nl), 
               Jun 27 2007

Search completed in 0.001 seconds