A266413 -id:A266413 - cp's OEIS frontend

A266414 Inverse permutation to A266413.

1, 2, 4, 3, 8, 6, 5, 16, 7, 12, 10, 9, 32, 14, 11, 24, 13, 15, 20, 18, 17, 64, 28, 22, 19, 48, 26, 21, 23, 30, 25, 40, 31, 27, 29, 36, 34, 33, 128, 56, 44, 38, 35, 96, 52, 42, 37, 39, 46, 60, 41, 50, 47, 80, 43, 45, 49, 62, 54, 58, 72, 51, 63, 55, 53, 57, 68, 61, 59, 66, 65, 256, 112, 88, 76, 70, 67, 192, 104, 84, 74, 69, 71, 78, 92, 120

Offset: 1

Antti Karttunen, Dec 29 2015

nonn

Antti Karttunen, Table of n, a(n) for n = 1..16384
Index entries for sequences that are permutations of the natural numbers

Inverse: A266413.

Scheme
```
;; Use the code given in A266413.
```

A266411 a(1) = 1, after which each a(n) = (A004074(n)+1)-th number selected from those not yet in the sequence.

Original entry on oeis.org

1, 2, 4, 3, 6, 8, 7, 5, 10, 12, 14, 13, 16, 15, 11, 9, 18, 20, 22, 24, 23, 26, 28, 27, 30, 29, 25, 32, 31, 21, 19, 17, 34, 36, 38, 40, 42, 41, 44, 46, 48, 47, 50, 52, 51, 54, 53, 49, 56, 58, 57, 60, 59, 55, 62, 61, 45, 43, 64, 63, 39, 37, 35, 33, 66, 68, 70, 72, 74, 76, 75, 78, 80, 82, 84, 83, 86, 88, 90, 89, 92, 94, 93, 96, 95, 91

Offset: 1

Antti Karttunen, Dec 29 2015

nonn

Inverse: A266412.
Cf. A004074.
Similar permutations in Quetian style: A119435, A126917, A246165, A266413.
Cf. also A265901, A265903.

f[n_] := Block[{a = {1}, g, b = Range[2, n]}, g[1] = g[2] = 1; g[x_] := g[x] = g[g[x - 1]] + g[x - g[x - 1]]; Do[{AppendTo[a, #[[1, 1]]], Set[b, Last@ #]} &@ If[# > Length@ b, Break[], TakeDrop[b, {#}]] &@ (2 g[#] - # + 1) &@ k, {k, 2, n}]; a]; f@ 97 (* Michael De Vlieger, Dec 29 2015, Version 10.2, based on Harvey P. Dale at A004074 *)

cp's OEIS Frontend

A266414 Inverse permutation to A266413.

Views

Author

Keywords

Links

Crossrefs

Programs

Scheme