login
Record values in A125717.
5

%I #6 Jul 22 2014 08:29:55

%S 0,1,3,6,7,13,20,22,23,24,25,26,27,47,49,72,73,75,77,79,81,115,117,

%T 119,121,123,125,127,129,131,133,134,189,245,253,298,341,448,454,460,

%U 525,540,546,552,558,561,734,759,769,883,892,893,903,909,915,921,927

%N Record values in A125717.

%C a(n) = A125717(A245395(n)) and A125717(m) < a(n) for m < A245395(n).

%H Reinhard Zumkeller, <a href="/A245394/b245394.txt">Table of n, a(n) for n = 1..2562</a>, all records < 10^8

%o (Haskell)

%o a245394 n = a245394_list !! (n-1)

%o (a245394_list, a245395_list) = unzip $ f [0..] a125717_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

%Y Cf. A125717, A245395, A245340, A064227.

%K nonn

%O 1,3

%A _Reinhard Zumkeller_, Jul 21 2014