login
A098313
Inverse of A098311.
4
1, 2, 3, 5, 4, 7, 6, 8, 9, 11, 10, 12, 13, 17, 15, 18, 14, 19, 16, 20, 21, 25, 22, 26, 23, 27, 28, 29, 24, 31, 30, 32, 33, 41, 35, 43, 34, 42, 36, 44, 37, 45, 38, 46, 47, 48, 39, 59, 40, 55, 49, 56, 50, 60, 51, 65, 53, 66, 52, 67, 54, 68, 63, 69, 57, 70, 58, 71, 64, 72, 61, 73
OFFSET
1,2
COMMENTS
a(A098311(n)) = A098311(a(n)) = n;
A098314(n) = a(a(n)).
PROG
(Haskell)
import Data.List (elemIndex); import Data.Maybe (fromJust)
a098313 = (+ 1) . fromJust . (`elemIndex` a098311_list)
-- Reinhard Zumkeller, Oct 11 2014
CROSSREFS
Sequence in context: A160051 A351298 A082746 * A098311 A342265 A375375
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Sep 02 2004
STATUS
approved