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