login
A082423
a(1)=1, a(n)=ceiling(n/(n+1)*sum(k=1,n-1,a(k))).
1
1, 1, 2, 4, 7, 13, 25, 48, 91, 175, 337, 650, 1258, 2438, 4735, 9210, 17940, 34992, 68331, 133580, 261391, 511959, 1003556, 1968715, 3864865, 7592312, 14923899, 29352241, 57761017, 113723026, 224010669, 441452110, 870326081, 1716539232
OFFSET
1,3
LINKS
FORMULA
Apparently a(n) is asymptotic to C*2^n/sqrt(n) where C=0.6... [corrected by Vaclav Kotesovec, Feb 16 2019]
a(n) ~ c * 2^n / sqrt(n), where c = 0.6019481448829426024673784634152459777518844207090124563905577687332439... - Vaclav Kotesovec, Feb 16 2019
MATHEMATICA
a[1]=1; a[n_]:=a[n]=Ceiling[n/(n+1)*Sum[a[k], {k, 1, n-1}]]; Table[a[n], {n, 1, 40}] (* Vaclav Kotesovec, Feb 16 2019 *)
CROSSREFS
Sequence in context: A018082 A018083 A108361 * A176485 A119266 A102026
KEYWORD
nonn
AUTHOR
Benoit Cloitre, Apr 24 2003
STATUS
approved