A083383 Positions of records in A083382.

1, 2, 9, 26, 42, 57, 75, 76, 103, 116, 122, 143, 151, 172, 191, 197, 224, 236, 251, 266, 288, 316, 327, 338, 356, 372, 385, 401, 451, 482, 490, 501, 541, 558, 578, 586, 621, 636, 644, 670, 678, 692, 724, 735, 776, 801, 826, 851, 864, 872, 890, 906, 915, 924

Offset: 0

Author

N. J. A. Sloane, Jun 06 2003

Keywords

• nonn
• easy

Links

• Reinhard Zumkeller, Table of n, a(n) for n = 0..250

Programs

Haskell

a083383 n = a083383_list !! (n-1)
a083383_list = 1 : f 0 [2..] (tail a083382_list) where
   f m (x:xs) (y:ys) | y <= m    = f m xs ys
                     | otherwise = x : f y xs ys
-- Reinhard Zumkeller, Jun 10 2012

Extensions

More terms from Vladeta Jovovic, Jun 06 2003