|
%I #9 Feb 27 2013 19:41:06
%S 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,
%T 24,25,52,26,55,27,28,29,31,32,65,33,35,36,73,37,77,38,39,40,85,42,43,
%U 44,45,46,95,47,48,49,50,51,105,53,110,54,56,57,58,59,121,60,61,62,128
%N Inverse of A089088.
%H Reinhard Zumkeller, <a href="/A112990/b112990.txt">Table of n, a(n) for n = 1..1000</a>
%H <a href="/index/Per#IntegerPermutation">Index entries for sequences that are permutations of the natural numbers</a>
%o (Haskell)
%o import Data.List (elemIndex)
%o import Data.Maybe (fromJust)
%o a112990 = (+ 1) . fromJust . (`elemIndex` a089088_list)
%o -- _Reinhard Zumkeller_, Feb 27 2013
%Y Cf. A112978.
%K nonn
%O 1,2
%A _Reinhard Zumkeller_, Oct 08 2005
|
