%I #11 Jul 31 2014 23:50:26
%S 1,3,2,13,8,4,26,7,5,28,14,172,149,25,41,18,635,102,113,1194,11,43,
%T 428,22,17,6,77,88,71,259,527,130,227,48,74,12,677,235,20,688,68,634,
%U 5711,61,50,1593,1490,27612,59,39,29,63,11438,10119,4748,9,344,238,413,1602,941,69
%N Permutation of natural numbers: a(n) = A048673(A244319(n)).
%H Antti Karttunen, <a href="/A245610/b245610.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) = A048673(A244319(n)).
%o (PARI)
%o A048673(n) = (1+A003961(n))/2;
%o A245610(n) = A048673(A244319(n)); \\ For the other needed functions, see under A244319.
%o for(n=1, 10001, write("b245610.txt", n, " ", A245610(n)));
%o (Scheme) (define (A245610 n) (A048673 (A244319 n)))
%Y Inverse: A245609.
%Y Cf. A003961, A048673, A244319, A245607-A245608.
%K nonn
%O 1,2
%A _Antti Karttunen_, Jul 29 2014