OFFSET
1,3
MATHEMATICA
nxt[{n_, a_, b_}]:={n+1, b, Abs[b+2a-n-1]}; Rest[Select[NestList[nxt, {2, 1, 1}, 180][[All, 2]], OddQ]] (* Harvey P. Dale, Dec 28 2021 *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
EXTENSIONS
More terms from James A. Sellers
STATUS
approved