[go: up one dir, main page]

login
A064959
Inverse permutation to A064419.
2
1, 2, 3, 4, 5, 11, 23, 18, 14, 6, 33, 12, 40, 24, 7, 19, 62, 13, 68, 8, 25, 34, 87, 17, 9, 41, 15, 26, 104, 10, 111, 20, 35, 63, 22, 16, 133, 69, 42, 21, 144, 27, 162, 36, 30, 88, 172, 28, 47, 31, 64, 43, 197, 29, 32, 46, 70, 105, 215, 38, 237, 112, 48, 52, 39, 37, 248, 65
OFFSET
1,2
PROG
(Haskell)
import Data.List (elemIndex)
import Data.Maybe (fromJust)
a064959 n = a064959_list !! (n-1)
a064959_list = map ((+ 1) . fromJust . (`elemIndex` a064419_list)) [1..]
-- Reinhard Zumkeller, Sep 17 2001
CROSSREFS
Sequence in context: A083160 A123823 A274837 * A217650 A032988 A280206
KEYWORD
nonn,easy
AUTHOR
N. J. A. Sloane, Oct 30, 2001
EXTENSIONS
More terms from Naohiro Nomoto, Oct 31 2001
STATUS
approved