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