A094393 a(n) = floor(A058303*(2^(n-2)+1/2)).

14, 21, 35, 63, 120, 233, 459, 911, 1816, 3625, 7244, 14481, 28954, 57902, 115798, 231590, 463173, 926340, 1852673, 3705340, 7410673, 14821340, 29642673, 59285340, 118570674, 237141341, 474282675, 948565344, 1897130682, 3794261357

Offset

1,1

Links

Table of n, a(n) for n=1..30.

Mathematica

b1=14.134725 s=2 b[n_, l_]=b1*((s^(n-1))+(s^(l/(2*n+1)-1))) m=40 a=Table[Floor[b[n, l]], {l, 0, 2*m}, {n, 0, m}]

Crossrefs

Sequence in context: A082802 A258217 A272470 * A128705 A073250 A335760

Adjacent sequences: A094390 A094391 A094392 * A094394 A094395 A094396

Keyword

nonn,less

Author

Roger L. Bagula, Jun 03 2004

Status

approved