A113233 Inverse permutation to A109812.
1, 2, 4, 3, 6, 9, 16, 5, 10, 7, 20, 12, 26, 14, 28, 8, 13, 11, 22, 19, 24, 30, 39, 17, 33, 36, 41, 44, 51, 54, 76, 15, 18, 25, 43, 21, 37, 34, 48, 23, 31, 60, 80, 46, 57, 85, 104, 27, 66, 62, 71, 64, 90, 83, 109, 68, 88, 100, 102, 74, 112, 107, 162, 29, 35, 32, 45, 42, 61, 67
Offset: 1
Links
Programs
-
Haskell
import Data.List (elemIndex); import Data.Maybe (fromJust) a113233 = (+ 1) . fromJust . (`elemIndex` a109812_list) -- Reinhard Zumkeller, Sep 15 2014
Formula
A113234(n) = a(a(n)).
Extensions
a(63) corrected by Reinhard Zumkeller, Sep 15 2014