|
%I #12 Oct 24 2013 03:38:36
%S 1,1,1,2,3,4,6,8,11,15,21,29,39,54,73,99,135,184,250,340,462,628,854,
%T 1161,1578,2145,2916,3964,5387,7322,9952,13526,18384,24987,33961,
%U 46159,62736,85267,115891,157512,214081,290967,395465,537493
%N Floor((e/2)^n).
%t f[n_] := Floor[(E/2)^n]; Array[f, 44, 0] (* _Robert G. Wilson v_, Oct 23 2013 *)
%o (PARI) a(n) = floor((exp(1)/2)^n); \\ _Michel Marcus_, Oct 24 2013
%o (PARI) a(n)=exp(n)>>n\1 \\ _Charles R Greathouse IV_, Oct 24 2013
%K nonn
%O 0,4
%A _Clark Kimberling_
|
