This site is supported by donations to The OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A246364 Permutation of natural numbers: a(n) = A064216(A227413(n)). 6
 1, 2, 5, 3, 7, 11, 13, 4, 6, 9, 19, 14, 8, 12, 29, 10, 17, 31, 23, 16, 41, 71, 37, 44, 47, 39, 43, 42, 38, 30, 26, 59, 22, 34, 15, 85, 53, 58, 25, 130, 57, 151, 61, 311, 103, 69, 33, 365, 157, 111, 73, 226, 74, 106, 67, 370, 223, 56, 97, 341, 139, 122, 35, 133, 55, 86, 20, 145, 46, 49, 21, 659, 118, 36, 83, 419, 127, 191, 18 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,2 COMMENTS After a(2) = 2, the rest of the even bisection contains only terms of A246261. However, some of the terms of A246261 are also found in the odd bisection, while terms of A246263, apart from 2, all reside in the odd bisection of this sequence. LINKS Antti Karttunen, Table of n, a(n) for n = 1..4095 FORMULA a(n) = A064216(A227413(n)). PROG (PARI) default(primelimit, (2^31)+(2^30)); A002808(n) = { my(k=-1); while( -n + n += -k + k=primepi(n), ); n }; \\ This function from M. F. Hasler A064989(n) = {my(f); f = factor(n); if((n>1 && f[1, 1]==2), f[1, 2] = 0); for (i=1, #f~, f[i, 1] = precprime(f[i, 1]-1)); factorback(f)}; A064216(n) = A064989((2*n)-1); A227413(n) = if(1==n, 1, if(!(n%2), prime(A227413(n/2)), A002808(A227413((n-1)/2)))); A246364(n) = A064216(A227413(n)); for(n=1, 4095, write("b246364.txt", n, " ", A246364(n))); (Scheme) (define (A246364 n) (A064216 (A227413 n))) CROSSREFS Inverse: A246363. Related or similar permutations: A064216, A227413, A246366, A246368. Cf. A246261, A246263. Sequence in context: A288417 A159016 A289108 * A083190 A171026 A064359 Adjacent sequences:  A246361 A246362 A246363 * A246365 A246366 A246367 KEYWORD nonn AUTHOR Antti Karttunen, Aug 26 2014 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified March 23 05:36 EDT 2019. Contains 321422 sequences. (Running on oeis4.)