[go: up one dir, main page]

login
A232359
Positions of peak values in A232221.
3
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
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
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Nov 24 2013
STATUS
approved