OFFSET
1,1
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..1000
FORMULA
a(n) ~ c * (3/2)^n, where c = 3.9320886310283094862025842648411406926537121258867950257873967568454133192... - Vaclav Kotesovec, May 07 2023
MAPLE
a := proc(n) option remember; 4 + iquo(add(a(k), k = 1..n-1), 2) end:
seq(a(n), n = 1..37); # Peter Luschny, May 07 2023
MATHEMATICA
f[s_]:= Append[s, 4+Floor[Plus @@ s/2]]; Nest[f, {4}, 37] (* Robert G. Wilson v, Jun 10 2006 *)
PROG
CROSSREFS
KEYWORD
nonn
AUTHOR
Graeme McRae, Jun 10 2006
EXTENSIONS
Name edited by Peter Luschny, May 07 2023
STATUS
approved