A255136 Records in A255134.

12, 28, 36, 44, 52, 68, 76, 84, 92, 100, 116, 124, 132, 140, 148, 156, 172, 180, 188, 196, 204, 212, 228, 244, 252, 260, 268, 276, 284, 292, 300, 316, 324, 332, 340, 348, 356, 364, 372, 380, 396, 404, 412, 420, 428, 436, 444, 452, 460, 476, 484, 492, 500

Offset: 1

Author

Reinhard Zumkeller, Feb 15 2015

Keywords

• nonn

Comments

a(n) = A255134(A255137(n)) and A255134(m) < a(n) for m < A255137(n).

Links

• Reinhard Zumkeller, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A255137, A255134, A097764.

Programs

Haskell

a255136 n = a255136_list !! (n-1)
(a255136_list, a255137_list) = unzip $ f [1..] a255134_list (-1) where
   f (x:xs) (y:ys) r = if y > r then (y, x) : f xs ys y else f xs ys r