login
A subdiagonal of number array A082137.
5

%I #18 Jan 16 2024 01:39:17

%S 1,4,30,224,1680,12672,96096,732160,5601024,42997760,331082752,

%T 2556051456,19778969600,153363087360,1191302553600,9268801044480,

%U 72219408138240,563445537177600,4401135695953920,34414895667609600,269374774271016960,2110381254330286080

%N A subdiagonal of number array A082137.

%H G. C. Greubel, <a href="/A082144/b082144.txt">Table of n, a(n) for n = 0..1000</a>

%F a(n) = (2^(n-1) + 0^n/2)*C(2*n+2, n).

%F (n+2)*a(n) +12*(-n-1)*a(n-1) +16*(2*n-1)*a(n-2)=0. - _R. J. Mathar_, Oct 29 2014

%F From _Amiram Eldar_, Jan 16 2024: (Start)

%F Sum_{n>=0} 1/a(n) = 88*arccot(sqrt(7))/(7*sqrt(7)) - 3/7.

%F Sum_{n>=0} (-1)^n/a(n) = 52*log(2)/27 - 5/9. (End)

%e a(0)=(2^(-1)+(0^0)/2)C(2,0)=2*(1/2)=1 (use 0^0=1).

%t Join[{1}, Table[2^(n-1)*Binomial[2*n+2, n], {n,1,50}]] (* _G. C. Greubel_, Feb 05 2018 *)

%o (PARI) for(n=0,30, print1((2^(n-1) + 0^n/2)*Binomial(2*n+2,n), ", ")) \\ _G. C. Greubel_, Feb 05 2018

%o (Magma) [(2^(n-1) + 0^n/2)*Binomial(2*n+2,n): n in [0..30]]; // _G. C. Greubel_, Feb 05 2018

%Y Cf. A069723, A082137, A082143, A082145.

%K easy,nonn

%O 0,2

%A _Paul Barry_, Apr 06 2003