A189419 Inverse permutation to A114183.
1, 2, 9, 3, 7, 10, 34, 4, 15, 8, 26, 11, 31, 35, 110, 5, 57, 16, 68, 52, 41, 27, 63, 12, 47, 32, 100, 36, 106, 111, 209, 6, 23, 58, 88, 17, 124, 69, 82, 53, 145, 42, 118, 28, 397, 64, 95, 13, 76, 48, 152, 33, 224
Offset: 1
Keywords
Links
Programs
-
Haskell
import Data.List (elemIndex) import Data.Maybe (fromJust) a189419 = (+ 1) . fromJust . (`elemIndex` a114183_list) -- Reinhard Zumkeller, Mar 05 2013