A245394 - OEIS

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

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

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