A266637 a(1) = 1; for n > 1, if A192490(2*n + 1) = 1 [when 2n+1 is a Ludic number] a(n) = A003309(1+a(A266350(n)-1)), otherwise a(n) = A192607(a(n-A266350(n))).

1, 2, 3, 4, 5, 7, 6, 11, 8, 9, 17, 13, 10, 37, 14, 12, 19, 23, 15, 25, 67, 16, 43, 27, 21, 29, 18, 52, 22, 181, 20, 30, 47, 34, 41, 24, 36, 77, 88, 26, 97, 59, 39, 53, 115, 32, 42, 407, 28, 70, 33, 224, 61, 31, 44, 64, 227, 49, 121, 89, 57, 35, 131, 51, 71, 101, 113, 38, 125, 79, 287, 55, 72, 91, 146, 46, 58, 1361

Offset

1,2

Links

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

Index entries for sequences that are permutations of the natural numbers

Formula

a(1) = 1; for n > 1, if A192490(2*n + 1) = 1 [when 2n+1 is Ludic number] a(n) = A003309(1+a(A266350(n)-1)), otherwise a(n) = A192607(a(n-A266350(n))).

As a composition of related permutations:

a(n) = A237126(A266417(n)).

Prog

(Scheme, with memoization-macro definec)
(definec (A266637 n) (cond ((<= n 1) n) ((zero? (A192490 (+ n n 1))) (A192607 (A266637 (- n (A266350 n))))) (else (A003309 (+ 1 (A266637 (+ -1 (A266350 n))))))))

Crossrefs

Inverse: A266638.

Cf. A003309, A192490, A192607, A266350.

Related or similar permutations: A237126, A266417.

Sequence in context: A254498 A185969 A369281 * A370496 A278505 A278506

Adjacent sequences: A266634 A266635 A266636 * A266638 A266639 A266640

Keyword

nonn

Author

Antti Karttunen, Jan 28 2016

Status

approved