%I #4 Jul 19 2013 14:18:20

%S 1,2,5,19,34,61,114,175,1094,1695,3390,9372,15605,116478,220288,

%T 455587,552188

%N Record values in A227617.

%C a(n) = A227617(A227633(n));

%C A227633(n) = A100707(a(n)).

%o (Haskell)

%o a227632 n = a227632_list !! (n-1)

%o (a227632_list, a227633_list) = unzip $ (1,1) : f 1 1 a227617_list where

%o f i v (q:qs) | q > v = (q,i) : f (i + 1) q qs

%o | otherwise = f (i + 1) v qs

%K nonn,more

%O 1,2

%A _Reinhard Zumkeller_, Jul 19 2013