A245394 Record values in A125717.

0, 1, 3, 6, 7, 13, 20, 22, 23, 24, 25, 26, 27, 47, 49, 72, 73, 75, 77, 79, 81, 115, 117, 119, 121, 123, 125, 127, 129, 131, 133, 134, 189, 245, 253, 298, 341, 448, 454, 460, 525, 540, 546, 552, 558, 561, 734, 759, 769, 883, 892, 893, 903, 909, 915, 921, 927

Offset: 1

Author

Reinhard Zumkeller, Jul 21 2014

Keywords

• nonn

Comments

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

Links

• Reinhard Zumkeller, Table of n, a(n) for n = 1..2562, all records < 10^8

Crossrefs

Cf. A125717, A245395, A245340, A064227.

Programs

Haskell

a245394 n = a245394_list !! (n-1)
(a245394_list, a245395_list) =  unzip $ f [0..] a125717_list (-1) where
   f (x:xs) (y:ys) r = if y > r then (y,x) : f xs ys y else f xs ys r