A232359 Positions of peak values in A232221.

425, 439, 561, 565, 633, 639, 678, 857, 883, 889, 1148, 2641, 3283, 3590, 3619, 3626, 3628, 4424, 4904, 4917, 4979, 4985, 5061, 7631, 7651, 7676, 7771, 7782, 7801, 7805, 8960, 9340, 9362, 9371, 9414, 9422, 9424, 9428, 9454, 9459, 9773, 10421, 10425, 10450

Offset: 1

Author

Reinhard Zumkeller, Nov 24 2013

Keywords

• nonn

Comments

max{A232221(a(n)-1),A232221(a(n)+1)} < A232221(a(n)) = A232361(n).

Examples

			Cf. A232361.
		

Links

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

Programs

Haskell

a232359 n = a232359_list !! (n-1)
(a232359_list, a232361_list) = unzip $
   f 2 (tail a232221_list) $ zipWith (-) (tail a232221_list) a232221_list
   where f x (y:ys) (u:ws@(v:_))
           | u > 0 && v < 0 = (x, y) : f (x + 1) ys ws
           | otherwise      = f (x + 1) ys ws