login
A245057
Inverse permutation to A249129.
3
1, 0, 2, 3, 5, 4, 7, 9, 6, 8, 11, 13, 10, 15, 12, 14, 16, 17, 19, 18, 21, 23, 20, 25, 22, 24, 26, 27, 28, 30, 29, 31, 33, 32, 35, 37, 34, 36, 39, 41, 38, 43, 40, 45, 42, 44, 46, 47, 48, 50, 49, 51, 53, 52, 55, 54, 57, 59, 56, 58, 60, 61, 63, 65, 62, 64, 67
OFFSET
0,3
PROG
(Haskell)
import Data.List (elemIndex); import Data.Maybe (fromJust)
a245057 = fromJust . (`elemIndex` a249129_list)
(PARI) M=0; #A245057=vecextract(vector(#A249129, n, i=0; for(j=1, #A249129, A249129[j]==n-1&&(i=j)&&break); i||M||M=n; j-1), Str(".."M-1)) \\ M. F. Hasler, Oct 22 2014
CROSSREFS
Cf. A249129.
Sequence in context: A074049 A326777 A193973 * A127521 A350583 A102399
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Oct 22 2014
STATUS
approved