Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%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