OFFSET
0,3
COMMENTS
The series is periodic with period 38.
LINKS
Index entries for linear recurrences with constant coefficients, signature (0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1).
MATHEMATICA
nxt[{a_, b_}]:={b, If[EvenQ[a], Floor[(a+b)/2]+3, Floor[(b-a)/2]+3]}; NestList[nxt, {1, 1}, 120][[All, 1]] (* Harvey P. Dale, Mar 08 2022 *)
CROSSREFS
KEYWORD
sign,easy
AUTHOR
Gerald McGarvey, Aug 31 2004
EXTENSIONS
More terms from Emeric Deutsch, Nov 17 2004
STATUS
approved