A237058 Inverse permutation to A237056.
1, 3, 5, 2, 7, 4, 9, 6, 8, 10, 11, 12, 13, 14, 16, 18, 15, 20, 22, 24, 26, 28, 17, 30, 19, 32, 34, 36, 21, 38, 40, 42, 44, 46, 48, 50, 23, 52, 54, 56, 25, 58, 27, 60, 62, 64, 29, 66, 68, 70, 72, 74, 31, 76, 78, 80, 82, 84, 86, 88, 33, 90, 92, 94, 96, 98, 35
Offset: 1
Keywords
Links
Programs
-
Haskell
import Data.List (elemIndex); import Data.Maybe (fromJust) a237058 = (+ 1) . fromJust . (`elemIndex` a237056_list)