A232359 - OEIS

%I #6 Nov 25 2013 01:12:30

%S 425,439,561,565,633,639,678,857,883,889,1148,2641,3283,3590,3619,

%T 3626,3628,4424,4904,4917,4979,4985,5061,7631,7651,7676,7771,7782,

%U 7801,7805,8960,9340,9362,9371,9414,9422,9424,9428,9454,9459,9773,10421,10425,10450

%N Positions of peak values in A232221.

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

%H Reinhard Zumkeller, <a href="/A232359/b232359.txt">Table of n, a(n) for n = 1..890</a>

%e Cf. A232361.

%o (Haskell)

%o a232359 n = a232359_list !! (n-1)

%o (a232359_list, a232361_list) = unzip $

%o    f 2 (tail a232221_list) $ zipWith (-) (tail a232221_list) a232221_list

%o    where f x (y:ys) (u:ws@(v:_))

%o            | u > 0 && v < 0 = (x, y) : f (x + 1) ys ws

%o            | otherwise      = f (x + 1) ys ws

%K nonn

%O 1,1

%A _Reinhard Zumkeller_, Nov 24 2013