%I #18 May 28 2024 05:30:40
%S 1,3,8,23,74,257,930,3439,12878,48629,184766,705443,2704168,10400613,
%T 40116614,155117535,601080406,2333606237,9075135318,35345263819,
%U 137846528840,538257874461,2104098963742,8233430727623,32247603683124,126410606437777,495918532948130
%N a(n) = A000984(n) + n.
%H Vincenzo Librandi, <a href="/A134758/b134758.txt">Table of n, a(n) for n = 0..200</a>
%F G.f.: ((1-x)^2 + x*sqrt(1-4*x))/((1-x)^2*sqrt(1-4*x)). - _Harvey P. Dale_, Dec 10 2011
%F From _G. C. Greubel_, May 28 2024: (Start)
%F E.g.f.: x*exp(x) + exp(2*x)*BesselI(0, 2*x).
%F a(n) = (2*(2*n-1)*a(n-1) - (3*n^2 - 6*n + 2))/n. (End)
%t Table[Binomial[2n,n]+n,{n,0,40}] (* _Harvey P. Dale_, Dec 10 2011 *)
%o (Magma) [n+(n+1)*Catalan(n): n in [0..40]]; // _G. C. Greubel_, May 28 2024
%o (SageMath) [n+binomial(2*n,n) for n in range(41)] # _G. C. Greubel_, May 28 2024
%Y Cf. A000984, A134759, A134760, A134761, A134762, A134763, A134770, A134771.
%K nonn
%O 0,2
%A _Gary W. Adamson_, Nov 09 2007
%E More terms from _Harvey P. Dale_, Dec 10 2011
|