|
%I #11 Oct 02 2019 11:54:17
%S 5,5,9,15,25,45,77,133,231,401,693,1201,2081,3603,6241,10809,18723,
%T 32429,56169,97287,168505,291861,505517,875581,1516551,2626743,
%U 4549653,7880231,13648959,23640691,40946879,70922073,122840635,212766221,368521905,638298663
%N First differences of A325056: distance in A076042 from n-th low point to the next.
%H Giovanni Resta, <a href="/A324792/b324792.txt">Table of n, a(n) for n = 0..41</a>
%t a=b=c=d=n=0; L={0}; While[Length[L] < 22, n++; a=b; b=c; c=d; d=c + If[c < n^2, n^2, -n^2]; If[a > b < c < d, AppendTo[L, n-2]]]; Differences@ L (* Giovanni Resta, Oct 01 2019 *)
%Y Cf. A076042, A325056, A324791.
%Y If we use primes instead of squares we get A008348, A309226, A324782, A324783.
%K nonn
%O 0,1
%A _N. J. A. Sloane_, Sep 04 2019
%E More terms from _Giovanni Resta_, Oct 01 2019
|
