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
Keywords
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
Comments