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

Comments

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

Links

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

Example

Cf. A232361.

Prog

(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

Crossrefs

Sequence in context: A184766 A250377 A250342 * A294714 A294712 A160098

Adjacent sequences: A232356 A232357 A232358 * A232360 A232361 A232362

Keyword

nonn

Author

Reinhard Zumkeller, Nov 24 2013

Status

approved