login
Permutation of natural numbers induced when A245703 is restricted to nonprime numbers: a(n) = 1+A091245(A245703(A018252(n))).
4

%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