OFFSET
0,2
MATHEMATICA
nxt[{a_, b_}]:={b, Floor[GoldenRatio*a+b]}; NestList[nxt, {1, 3}, 30][[;; , 1]] (* Harvey P. Dale, Sep 15 2023 *)
CROSSREFS
KEYWORD
nonn,changed
AUTHOR
STATUS
approved