A112990 Inverse of A089088.
1, 2, 5, 3, 9, 4, 12, 6, 7, 8, 19, 10, 23, 11, 13, 14, 30, 15, 34, 16, 17, 18, 41, 20, 21, 22, 24, 25, 52, 26, 55, 27, 28, 29, 31, 32, 65, 33, 35, 36, 73, 37, 77, 38, 39, 40, 85, 42, 43, 44, 45, 46, 95, 47, 48, 49, 50, 51, 105, 53, 110, 54, 56, 57, 58, 59, 121, 60, 61, 62, 128
Offset: 1
Keywords
Links
Crossrefs
Cf. A112978.
Programs
-
Haskell
import Data.List (elemIndex) import Data.Maybe (fromJust) a112990 = (+ 1) . fromJust . (`elemIndex` a089088_list) -- Reinhard Zumkeller, Feb 27 2013