login
A187099
Inverse permutation to A187098.
2
1, 2, 3, 4, 5, 6, 7, 9, 8, 11, 10, 14, 12, 13, 15, 18, 16, 17, 19, 21, 20, 25, 22, 23, 24, 27, 26, 30, 28, 29, 31, 33, 32, 40, 34, 35, 39, 37, 36, 41, 44, 38, 42, 45, 43, 48, 50, 46, 47, 51, 49, 55, 52, 57, 56, 53, 54, 59, 61, 58, 65, 63, 60, 84, 62, 64, 67, 69, 68, 66, 70, 71, 72, 74, 73, 77, 75, 76, 82, 79
OFFSET
1,2
PROG
(Haskell)
import Data.List (elemIndex); import Data.Maybe (fromJust)
a187099 = (+ 1) . fromJust . (`elemIndex`a187098_list)
-- Reinhard Zumkeller, Aug 04 2015
CROSSREFS
Cf. A187098.
Sequence in context: A183081 A140595 A187098 * A284049 A063932 A323785
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Mar 04 2011
STATUS
approved