OFFSET
1,1
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..1000
MATHEMATICA
a[n_]:= a[n]= 8 +Floor[(1 +Sum[a[k], {k, n-1}])/2];
Table[a[n], {n, 60}] (* G. C. Greubel, May 08 2023 *)
nxt[{t_, a_}]:=Module[{c=8+Floor[(1+t)/2]}, {t+c, c}]; NestList[nxt, {8, 8}, 40][[;; , 2]] (* Harvey P. Dale, Sep 10 2023 *)
PROG
CROSSREFS
KEYWORD
nonn
AUTHOR
Graeme McRae, Jun 10 2006
STATUS
approved