A244724 -id:A244724 - cp's OEIS frontend

A244731 Fixed points of the permutations A244724 and A244732.

1, 2, 5, 6, 10, 11, 12, 13, 17, 21, 22, 23, 24, 25, 29, 30, 46, 47, 51, 52, 53, 54, 58, 59, 69, 70, 71, 76, 79, 88, 89, 90, 98, 101, 111, 112, 113, 114, 118, 119, 120, 133, 137, 141, 142, 143, 148, 151, 160, 161, 177, 183, 184, 185, 189, 190, 191, 192, 193

Offset: 1

Reinhard Zumkeller, Jul 05 2014

nonn

A244724(a(n)) = A244732(a(n)) = a(n).

Reinhard Zumkeller, Table of n, a(n) for n = 1..10000

a244731 n = a244731_list !! (n-1)
a244731_list = [x | x <- [1..], a244724 x == x]

A244732 Inverse permutation to A244724.

Original entry on oeis.org

1, 2, 4, 3, 5, 6, 9, 7, 8, 10, 11, 12, 13, 15, 16, 14, 17, 19, 20, 18, 21, 22, 23, 24, 25, 27, 28, 26, 29, 30, 33, 31, 35, 36, 32, 34, 39, 37, 41, 42, 38, 40, 45, 43, 44, 46, 47, 49, 50, 48, 51, 52, 53, 54, 57, 55, 56, 58, 59, 61, 63, 65, 67, 68, 66, 64

Offset: 1

Reinhard Zumkeller, Jul 05 2014

nonn

Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
Index entries for sequences that are permutations of the natural numbers

Cf. A244731 (fixed points).

import Data.List (elemIndex); import Data.Maybe (fromJust)
a244732 = (+ 1) . fromJust . (`elemIndex` a244724_list)

cp's OEIS Frontend

A244731 Fixed points of the permutations A244724 and A244732.

Views

Author

Keywords

Comments

Links

Programs

Haskell