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