A241582 - OEIS

A241582

Records in A131644.

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

(list; graph; refs; listen; history; text; internal format)

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