login
A241582
Records in A131644.
4
0, 1, 2, 4, 8, 16, 20, 25, 31, 32, 37, 42, 43, 56, 58, 71, 72, 97, 109, 114, 120, 136, 153, 158, 172, 199, 220, 226, 249, 252, 254, 280, 305, 316, 340, 392, 394, 400, 448, 452, 457, 486, 499, 529, 537, 546, 572, 588, 619, 657, 704, 737, 809, 814, 872, 921, 934, 964, 973, 993, 1014, 1024, 1048, 1074, 1113
OFFSET
1,3
LINKS
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