A255940 Inverse permutation to A249167.
1, 2, 3, 6, 7, 13, 12, 4, 25, 9, 17, 8, 24, 20, 5, 32, 37, 11, 38, 16, 10, 15, 44, 18, 49, 22, 23, 14, 54, 28, 65, 30, 21, 35, 43, 27, 70, 40, 26, 33, 78, 45, 83, 29, 57, 42, 88, 34, 96, 47, 39, 31, 106, 55, 19, 50, 36, 52, 115, 41, 120, 63, 59, 48, 73, 66
Offset: 1
Keywords
Links
Programs
-
Haskell
import Data.List (elemIndex); import Data.Maybe (fromJust) a255940 = (+ 1) . fromJust . (`elemIndex` a249167_list)