login
A187790
Inverse permutation to A093506.
3
1, 2, 4, 3, 5, 8, 6, 9, 7, 10, 11, 16, 12, 17, 13, 18, 14, 19, 15, 20, 23, 21, 24, 22, 25, 32, 26, 33, 27, 34, 28, 35, 29, 36, 30, 37, 31, 46, 38, 47, 39, 48, 40, 49, 41, 50, 42, 51, 43, 52, 44, 53, 45, 54, 56, 55, 57, 67, 58, 68, 59, 69, 60, 70, 61, 71, 62
OFFSET
1,2
PROG
(Haskell)
import Data.List (elemIndex)
import Data.Maybe (fromJust)
a187790 = (+ 1) . fromJust . (`elemIndex` a093506_list)
CROSSREFS
Cf. A187792 (fixed points).
Sequence in context: A134464 A104472 A316964 * A307613 A279343 A222599
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Jan 06 2013
STATUS
approved