%I #10 Aug 18 2014 00:53:08
%S 1,2,3,4,5,8,6,12,7,9,13,26,10,14,18,11,15,48,19,20,35,16,21,32,25,17,
%T 22,63,27,56,28,138,46,23,29,43,34,38,24,30,80,60,36,88,72,37,167,42,
%U 59,31,39,55,45,62,50,33,40,100,77,320,47,92,109,90,49,201,54,98,76,41,51
%N Permutation of natural numbers induced when A245703 is restricted to nonprime numbers: a(n) = 1+A091245(A245703(A018252(n))).
%H Antti Karttunen, <a href="/A245819/b245819.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(1) = 1, and for n > 1, a(n) = 1 + A245703(n-1).
%F a(n) = 1+A091245(A245703(A018252(n))). [Induced when A245703 is restricted to nonprime numbers].
%F a(n) = 1+A091226(A245703(A008578(n))). [Induced also when A245703 is restricted to noncomposite numbers].
%F As a composition of related permutations:
%F a(n) = A245814(A245815(n)).
%o (PARI)
%o A245819(n) = if(1==n, 1, 1 + A245703(n-1));
%o for(n=1, 10001, write("b245819.txt", n, " ", A245819(n))); \\ The rest of code can be found in A245703.
%o (Scheme, three different implementations)
%o (define (A245819 n) (if (<= n 1) n (+ 1 (A245703 (- n 1)))))
%o (define (A245819 n) (+ 1 (A091245 (A245703 (A018252 n)))))
%o (define (A245819 n) (+ 1 (A091226 (A245703 (A008578 n)))))
%Y Inverse: A245820.
%Y Related permutations: A245703, A245814, A245815.
%Y Cf. A008578, A018252, A091226, A091245.
%K nonn
%O 1,2
%A _Antti Karttunen_, Aug 16 2014