OFFSET
0,1
LINKS
Giovanni Resta, Table of n, a(n) for n = 0..41
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
N. J. A. Sloane, Sep 04 2019
EXTENSIONS
More terms from Giovanni Resta, Oct 01 2019
STATUS
approved