A227632 Record values in A227617.

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

Offset: 1

Author

Reinhard Zumkeller, Jul 19 2013

Keywords

• nonn
• more

Comments

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

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

Programs

Haskell

a227632 n = a227632_list !! (n-1)
(a227632_list, a227633_list) = unzip $ (1,1) : f 1 1 a227617_list where
   f i v (q:qs) | q > v = (q,i) : f (i + 1) q qs
                | otherwise = f (i + 1) v qs