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

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A245708 Permutation of natural numbers, the odd bisection of A245606 incremented by one and halved: a(n) = (1+A245606((2*n)-1))/2. 7
1, 2, 3, 5, 4, 8, 6, 11, 7, 14, 13, 41, 10, 23, 63, 20, 15, 17, 9, 50, 16, 26, 21, 65, 45, 32, 18, 44, 30, 413, 58, 95, 22, 53, 12, 29, 27, 38, 66, 221, 52, 122, 48, 77, 115, 83, 748, 179, 69, 263, 25, 365, 39, 113, 153, 176, 130, 158, 508, 1007, 247, 140, 78, 242, 97, 59, 33, 89, 72, 68, 36, 47, 49, 188, 28 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,2

LINKS

Antti Karttunen, Table of n, a(n) for n = 1..10001

Index entries for sequences that are permutations of the natural numbers

FORMULA

a(n) = (1+A245606((2*n)-1))/2.

As a composition of related permutations:

a(1) = 1, and for n > 1, a(n) = A048673(1+A245606(n-1)).

a(n) = A245608(A245705(n)).

Other identities:

For all n >= 0, a(2^n) = A245608(2^n). Moreover, A245709 gives all such k that a(k) = A245608(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))));

A245708(n) = (1+A245606((2*n)-1))/2;

for(n=1, 10001, write("b245708.txt", n, " ", A245708(n)))

(Scheme, two alternative implementations)

(define (A245708 n) (* (/ 1 2) (+ 1 (A245606 (-1+ (* 2 n))))))

(define (A245708 n) (if (= 1 n) n (A048673 (+ 1 (A245606 (- n 1))))))

CROSSREFS

Inverse: A245707.

Cf. A003961, A048673, A245606, A245608, A245705, A245709.

Sequence in context: A256995 A249129 A065561 * A126917 A250471 A086496

Adjacent sequences:  A245705 A245706 A245707 * A245709 A245710 A245711

KEYWORD

nonn

AUTHOR

Antti Karttunen, Jul 30 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.

License Agreements, Terms of Use, Privacy Policy. .

Last modified April 10 22:29 EDT 2021. Contains 342856 sequences. (Running on oeis4.)