A225047 Inverse permutation to A121216.

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

Offset: 1

Author

Reinhard Zumkeller, Apr 25 2013

Keywords

• nonn

Comments

A121216(a(n)) = a(A121216(n)) = n.

Links

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

Programs

Haskell

import Data.List (elemIndex)
import Data.Maybe (fromJust)
a225047 = (+ 1) . fromJust . (`elemIndex` a121216_list)