A082423 a(1)=1, a(n)=ceiling(n/(n+1)*sum(k=1,n-1,a(k))).

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

Vaclav Kotesovec, Table of n, a(n) for n = 1..3300

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

Adjacent sequences: A082420 A082421 A082422 * A082424 A082425 A082426

Keyword

nonn

Author

Benoit Cloitre, Apr 24 2003

Status

approved