A244732 Inverse permutation to A244724.
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
Keywords
Links
Crossrefs
Cf. A244731 (fixed points).
Programs
-
Haskell
import Data.List (elemIndex); import Data.Maybe (fromJust) a244732 = (+ 1) . fromJust . (`elemIndex` a244724_list)