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

Author

Roger L. Bagula, Jun 03 2004

Keywords

• nonn
• less

Programs

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}]