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,3

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

Prog

(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

Crossrefs

Cf. A125717, A245395, A245340, A064227.

Sequence in context: A124130 A124132 A064291 * A137473 A303604 A349680

Adjacent sequences: A245391 A245392 A245393 * A245395 A245396 A245397

Keyword

nonn

Author

Reinhard Zumkeller, Jul 21 2014

Status

approved