[go: up one dir, main page]
login
The OEIS is supported by the many generous donors to the OEIS Foundation.

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).

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
Index entries for sequences that are permutations of the natural numbers
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 WebCam Contribute Format Style Sheet Transforms Superseeker Recents
The OEIS Community
Maintained by The OEIS Foundation Inc.
Last modified December 4 21:24 EST 2024. Contains 378421 sequences.
License Agreements, Terms of Use, Privacy Policy