|
%I #6 Jan 30 2015 21:02:13
%S 0,1,2,4,8,16,20,25,31,32,37,42,43,56,58,71,72,97,109,114,120,136,153,
%T 158,172,199,220,226,249,252,254,280,305,316,340,392,394,400,448,452,
%U 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
%N Records in A131644.
%H Reinhard Zumkeller, <a href="/A241582/b241582.txt">Table of n, a(n) for n = 1..10000</a>
%o (Haskell)
%o a241582 n = a241582_list !! (n-1)
%o (a241582_list, a241583_list) = unzip $ f [1..] a131644_list (-1) where
%o f (x:xs) (y:ys) r = if y > r then (y, x) : f xs ys y else f xs ys r
%o -- _Reinhard Zumkeller_, Jan 30 2015
%Y Cf. A131644, A241583, A192362.
%K nonn
%O 1,3
%A _N. J. A. Sloane_, May 06 2014
|
