login
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))).
4
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
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.
Related or similar permutations: A237126, A266417.
Sequence in context: A254498 A185969 A369281 * A370496 A278505 A278506
KEYWORD
nonn
AUTHOR
Antti Karttunen, Jan 28 2016
STATUS
approved