A065307 "Inverse" to A065306.
1, 2, 3, 4, 5, 6, 7, 9, 8, 10, 11, 12, 13, 15, 14, 16, 17, 18, 19, 24, 20, 21, 25, 22, 26, 29, 23, 27, 28, 33, 30, 31, 34, 35, 32, 41, 36, 38, 37, 39, 40, 42, 43, 51, 44, 45, 52, 46, 48, 53, 47, 54, 58, 49, 55, 67, 50, 56, 57, 62, 59, 60, 63, 64, 61, 74, 65, 68, 66, 69, 70, 79
Offset: 1
Links
Programs
-
Haskell
import Data.List (elemIndex) import Data.Maybe (fromJust) a065307 n = (fromJust $ elemIndex n a065306_list) + 1 -- Reinhard Zumkeller, Jan 30 2012