A187099 Inverse permutation to A187098.
1, 2, 3, 4, 5, 6, 7, 9, 8, 11, 10, 14, 12, 13, 15, 18, 16, 17, 19, 21, 20, 25, 22, 23, 24, 27, 26, 30, 28, 29, 31, 33, 32, 40, 34, 35, 39, 37, 36, 41, 44, 38, 42, 45, 43, 48, 50, 46, 47, 51, 49, 55, 52, 57, 56, 53, 54, 59, 61, 58, 65, 63, 60, 84, 62, 64, 67, 69, 68, 66, 70, 71, 72, 74, 73, 77, 75, 76, 82, 79
Offset: 1
Keywords
Links
Crossrefs
Cf. A187098.
Programs
-
Haskell
import Data.List (elemIndex); import Data.Maybe (fromJust) a187099 = (+ 1) . fromJust . (`elemIndex`a187098_list) -- Reinhard Zumkeller, Aug 04 2015