OFFSET
1,3
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
PROG
(Haskell)
a241582 n = a241582_list !! (n-1)
(a241582_list, a241583_list) = unzip $ f [1..] a131644_list (-1) where
f (x:xs) (y:ys) r = if y > r then (y, x) : f xs ys y else f xs ys r
-- Reinhard Zumkeller, Jan 30 2015
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, May 06 2014
STATUS
approved