|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
EXAMPLE
|
|
|
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
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|