A227114 Inverse permutation to A227113.
1, 2, 4, 3, 6, 5, 8, 10, 12, 7, 14, 11, 16, 9, 13, 18, 20, 19, 22, 24, 26, 15, 28, 25, 30, 17, 27, 32, 34, 31, 36, 33, 38, 21, 40, 39, 42, 23, 44, 41, 46, 45, 48, 50, 52, 29, 54, 51, 56, 53, 58, 60, 62, 59, 64, 57, 66, 35, 68, 61, 70, 37, 67, 72, 65, 73, 74
Offset: 1
Keywords
Links
Programs
-
Haskell
import Data.List (elemIndex); import Data.Maybe (fromJust) a227114 = (+ 1) . fromJust . (`elemIndex` a227113_list)