A270199 Self-inverse permutation of natural numbers: a(1) = 1, a(A269389(1+n)) = A269399(a(n)), a(A269399(n)) = A269389(1+a(n)).

1, 3, 2, 9, 6, 5, 30, 15, 4, 16, 12, 11, 93, 45, 8, 10, 46, 48, 34, 33, 266, 124, 26, 31, 127, 23, 154, 99, 97, 7, 24, 727, 20, 19, 352, 80, 94, 357, 68, 141, 69, 446, 278, 272, 14, 17, 70, 18, 71, 73, 1902, 54, 61, 52, 946, 232, 267, 957, 197, 408, 53, 199, 1174, 763, 407, 751, 186, 39, 41, 47, 49, 202, 50, 204, 210, 4724, 164, 192, 182, 36

Offset

1,2

Links

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

Index entries for sequences that are permutations of the natural numbers

Formula

a(1) = 1, for n > 1, if A137264(6+n) = 0 [when n is in A269399], a(n) = A269389(1+a(n-A269362(n))), otherwise a(n) = A269399(a(A269362(n)-1)).

Prog

(Scheme, with memoization-macro definec)
(definec (A270199 n) (cond ((= 1 n) n) ((not (zero? (A137264 (+ 6 n)))) (A269399 (A270199 (+ -1 (A269362 n))))) (else (A269389 (+ 1 (A270199 (- n (A269362 n))))))))

Crossrefs

Cf. A137264, A269362, A269389, A269399.

Related or similar permutations: A267107, A270193, A270194.

Sequence in context: A269867 A244319 A269359 * A349579 A374968 A082819

Adjacent sequences: A270196 A270197 A270198 * A270200 A270201 A270202

Keyword

nonn

Author

Antti Karttunen, Mar 16 2016

Status

approved