|
%I #25 Dec 12 2020 05:24:19
%S 1,2,3,5,7,4,9,6,11,8,13,15,17,10,19,21,23,12,25,27,29,14,31,16,33,18,
%T 35,37,39,20,41,22,43,24,45,47,49,26,51,28,53,30,55,57,59,32,61,63,65,
%U 34,67,69,71,36,73,38,75,40,77,79,81,42,83,85,87,44,89,91,93,46,95,48
%N Inverse permutation to A036552.
%H Reinhard Zumkeller, <a href="/A065037/b065037.txt">Table of n, a(n) for n = 1..10000</a>
%H <a href="/index/Per#IntegerPermutation">Index entries for sequences that are permutations of the natural numbers</a>
%F a(2n+1) - a(2n-1) = 2*A091297(2n-1) + 2. - _Philippe Deléham_, Feb 24 2004
%F From _Philippe Deléham_, Feb 24 2004: (Start)
%F a(2n) < a(2n+2) if a(2n+1) - a(2n-1) = 2;
%F a(2n) > a(2n+2) if a(2n+1) - a(2n-1) = 4.
%F a(n) = a(n+1) - 2 = a(n-1) + 2 iff n = 2*A036554(k) = 4*A003159(k). (End)
%o (Haskell)
%o import Data.List (elemIndex)
%o import Data.Maybe (fromJust)
%o a065037 = (+ 1) . fromJust . (`elemIndex` a036552_list)
%o -- _Reinhard Zumkeller_, Jan 08 2013
%Y Cf. A036552, A003159, A036554, A091297.
%K nonn,easy
%O 1,2
%A _N. J. A. Sloane_, Nov 05 2001
%E More terms from _Naohiro Nomoto_, Nov 22 2001
%E Incorrect equation removed from a formula by _Peter Munn_, Dec 11 2020
|
