OFFSET
1,2
PROG
(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
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Reinhard Zumkeller, Jul 19 2013
STATUS
approved