A266190 Self-inverse permutation of nonnegative integers: a(n) = A264985(A263273(A264985(n))).

0, 1, 2, 3, 4, 5, 6, 7, 8, 10, 9, 19, 12, 13, 14, 15, 16, 17, 24, 11, 69, 21, 25, 23, 18, 22, 26, 31, 28, 73, 30, 27, 46, 33, 55, 58, 37, 36, 64, 39, 40, 41, 42, 43, 44, 51, 32, 150, 48, 52, 50, 45, 49, 53, 78, 34, 213, 57, 35, 204, 60, 61, 231, 75, 38, 210, 66, 79, 68, 20, 70, 77, 72, 29, 207, 63, 76, 71, 54, 67, 80, 94, 85, 235

Offset

0,3

Comments

A263273 conjugated with the permutation obtained from its odd bisection.

Links

Antti Karttunen, Table of n, a(n) for n = 0..6561

Index entries for sequences that are permutations of the natural numbers

Formula

a(n) = A264985(A263273(A264985(n))).

As a composition of related permutations:

a(n) = A265353(A264985(n)).

a(n) = A264985(A265354(n)).

Mathematica

f[n_] := Block[{g, h}, g[x_] := x/3^IntegerExponent[x, 3]; h[x_] := x/g@ x; If[n == 0, 0, FromDigits[Reverse@ IntegerDigits[#, 3], 3] &@ g[n] h[n]]]; s = Select[f /@ Range@ 5000, OddQ]; t = Table[(s[[n + 1]] - 1)/2, {n, 0, 1000}]; Table[t[[f[t[[n + 1]]] + 1]], {n, 0, 83}] (* Michael De Vlieger, Jan 04 2016, after Jean-François Alcover at A263273 *)

Prog

(Scheme) (define (A266190 n) (A264985 (A263273 (A264985 n))))

Crossrefs

Cf. A263273, A264985, A265353, A265354.

Cf. A265369, A265904, A266401, A266403 (other conjugates or similar derivations of A263273).

Cf. also A266189.

Sequence in context: A073294 A073295 A191656 * A340625 A347644 A265572

Adjacent sequences: A266187 A266188 A266189 * A266191 A266192 A266193

Keyword

nonn,base

Author

Antti Karttunen, Jan 02 2016

Status

approved