The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A245608 Permutation of natural numbers, the even bisection of A245606 halved: a(n) = A245606(2*n)/2. 13
 1, 2, 3, 5, 4, 8, 13, 11, 6, 14, 18, 41, 7, 26, 28, 20, 9, 23, 63, 50, 25, 113, 313, 65, 12, 17, 88, 77, 172, 149, 43, 95, 16, 38, 33, 44, 10, 413, 163, 221, 19, 74, 48, 191, 22, 476, 118, 179, 49, 68, 138, 29, 39, 527, 78, 215, 31, 635, 1593, 227, 102, 71, 688, 242, 24, 122, 193, 104, 15, 98, 58, 176, 30, 32, 123 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,2 LINKS Antti Karttunen, Table of n, a(n) for n = 1..10001 FORMULA a(n) = A245606(2*n)/2. As a composition of related permutations: a(n) = A048673(A245606(n)). a(n) = A245708(A245706(n)). Other identities: For all n >= 0, a(2^n) = A245708(2^n). Moreover, A245709 gives all such k that a(k) = A245708(k). PROG (PARI) A003961(n) = my(f = factor(n)); for (i=1, #f~, f[i, 1] = nextprime(f[i, 1]+1)); factorback(f); \\ This function from Michel Marcus A245606(n) = if(1==n, 1, if(0==(n%2), 1+A003961(A245606(n/2)), A003961(1+A245606((n-1)/2)))) A245608(n) = A245606(2*n)/2; for(n=1, 10001, write("b245608.txt", n, " ", A245608(n))) (Scheme) (define (A245608 n) (A048673 (A245606 n))) CROSSREFS Inverse: A245607. Cf. A003961, A048673, A245606, A245609-A245610, A245706, A245708, A245709, A245612, A244154, A243065-A243066. Sequence in context: A285492 A272090 A120255 * A244154 A182395 A244983 Adjacent sequences:  A245605 A245606 A245607 * A245609 A245610 A245611 KEYWORD nonn AUTHOR Antti Karttunen, Jul 29 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 April 10 22:27 EDT 2021. Contains 342856 sequences. (Running on oeis4.)