cp's OEIS Frontend

A232359 Positions of peak values in A232221.

%I A232359 #6 Nov 25 2013 01:12:30
%S A232359 425,439,561,565,633,639,678,857,883,889,1148,2641,3283,3590,3619,
%T A232359 3626,3628,4424,4904,4917,4979,4985,5061,7631,7651,7676,7771,7782,
%U A232359 7801,7805,8960,9340,9362,9371,9414,9422,9424,9428,9454,9459,9773,10421,10425,10450
%N A232359 Positions of peak values in A232221.
%C A232359 max{A232221(a(n)-1),A232221(a(n)+1)} < A232221(a(n)) = A232361(n).
%H A232359 Reinhard Zumkeller, <a href="/A232359/b232359.txt">Table of n, a(n) for n = 1..890</a>
%e A232359 Cf. A232361.
%o A232359 (Haskell)
%o A232359 a232359 n = a232359_list !! (n-1)
%o A232359 (a232359_list, a232361_list) = unzip $
%o A232359    f 2 (tail a232221_list) $ zipWith (-) (tail a232221_list) a232221_list
%o A232359    where f x (y:ys) (u:ws@(v:_))
%o A232359            | u > 0 && v < 0 = (x, y) : f (x + 1) ys ws
%o A232359            | otherwise      = f (x + 1) ys ws
%K A232359 nonn
%O A232359 1,1
%A A232359 _Reinhard Zumkeller_, Nov 24 2013