login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A266190 Self-inverse permutation of nonnegative integers: a(n) = A264985(A263273(A264985(n))). 6
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 (list; graph; refs; listen; history; text; internal format)
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 * A265572 A265556 A004728

Adjacent sequences:  A266187 A266188 A266189 * A266191 A266192 A266193

KEYWORD

nonn,base

AUTHOR

Antti Karttunen, Jan 02 2016

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified October 22 04:25 EDT 2019. Contains 328315 sequences. (Running on oeis4.)