|
%I #9 Jul 10 2012 10:49:00
%S 14,21,35,63,120,233,459,911,1816,3625,7244,14481,28954,57902,115798,
%T 231590,463173,926340,1852673,3705340,7410673,14821340,29642673,
%U 59285340,118570674,237141341,474282675,948565344,1897130682,3794261357
%N a(n) = floor(A058303*(2^(n-2)+1/2)).
%t 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}]
%K nonn,less
%O 1,1
%A _Roger L. Bagula_, Jun 03 2004
|
