|
%I #11 Jul 13 2013 12:03:52
%S 1,6721,2,3282,5628,6722,7815,8908,3,1096,2189,3283,4376,5264,5629,
%T 5993,6357,6723,7087,7451,7816,8180,8544,8909,9273,9637,4,368,732,
%U 1097,1461,1825,2190,2554,2918,3284,3648,4012,4377,4741,5105,5265,5386,5507,5630
%N Inverse permutation to A190128.
%C a(A190128(n)) = A190128(a(n)) = n.
%H Reinhard Zumkeller, <a href="/A190129/b190129.txt">Table of n, a(n) for n = 1..10000</a> (full sequence)
%o (Haskell)
%o import Data.List (elemIndex)
%o import Data.Maybe (fromJust)
%o a190129 n = a190129_list !! (n-1)
%o a190129_list =
%o map (succ . fromJust . (`elemIndex` a190128_list)) [1..10000]
%K nonn,base,fini,full
%O 1,2
%A _Reinhard Zumkeller_, May 06 2011
|
