|
%I #9 Aug 11 2014 22:22:25
%S 1,2,3,4,5,6,9,8,13,10,7,12,37,18,19,16,69,26,17,20,33,14,277,24,213,
%T 74,11,36,73,38,71,32,45,138,25,52,1109,34,457,40,173,66,43,28,549,
%U 554,3351,48,77,426,21,148,53,22,135,72,125,146,651,76,273,142,55,64
%N Permutation of natural numbers: a(n) = A245607(A245708(n)).
%C The even bisection halved gives the sequence back. The odd bisection incremented by one and halved gives A245711.
%H Antti Karttunen, <a href="/A245705/b245705.txt">Table of n, a(n) for n = 1..10001</a>
%H <a href="/index/Per#IntegerPermutation">Index entries for sequences that are permutations of the natural numbers</a>
%F a(n) = A245607(A245708(n)).
%o (PARI)
%o A245705(n) = A245607(A245708(n));
%o for(n=1, 10001, write("b245705.txt", n, " ", A245705(n)));
%o \\ Other code as in A245607 and A245708.
%o (Scheme) (define (A245705 n) (A245607 (A245708 n)))
%Y Inverse: A245706.
%Y Fixed points: A245709.
%Y Cf. A245607, A245708, A245605, A245711.
%K nonn
%O 1,2
%A _Antti Karttunen_, Jul 30 2014
|
