OFFSET
1,1
FORMULA
a(n) ~ c * d^n, where d = 3.243422474587042277724011259031636390127037162673948731178241793178427249639..., c = 0.015782950162188139059124323554918048406538374877378493529663483700401917... - Vaclav Kotesovec, May 22 2019
MATHEMATICA
Clear[a]; a[n_] := a[n] = If[n==1, 2, Sum[Floor[a[n-1]/a[k]], {k, 1, n-1}]]; Table[a[n], {n, 1, 30}] (* Vaclav Kotesovec, May 22 2019 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
EXTENSIONS
a(26) corrected by Sean A. Irvine, May 22 2019
STATUS
approved