|
|
A324792
|
|
First differences of A325056: distance in A076042 from n-th low point to the next.
|
|
4
|
|
|
5, 5, 9, 15, 25, 45, 77, 133, 231, 401, 693, 1201, 2081, 3603, 6241, 10809, 18723, 32429, 56169, 97287, 168505, 291861, 505517, 875581, 1516551, 2626743, 4549653, 7880231, 13648959, 23640691, 40946879, 70922073, 122840635, 212766221, 368521905, 638298663
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,1
|
|
LINKS
|
|
|
MATHEMATICA
|
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 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|