OFFSET
1,3
FORMULA
a(n) ~ c * d^n, where d = 1.796846081832011885192668410985515255731636421943246338224794879636345148930..., c = 0.23857918741881541389297836615021092368805310388766212799501511093330834... - Vaclav Kotesovec, May 22 2019
MATHEMATICA
Clear[a]; a[n_] := a[n] = If[n == 1, 1, Sum[Floor[a[n-k]/a[k]], {k, 1, n-1}]]; Table[a[n], {n, 1, 40}] (* Vaclav Kotesovec, May 22 2019 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved