A046885 Row sums of triangle A046658.
1, 4, 18, 85, 411, 2013, 9933, 49236, 244750, 1218888, 6077644, 30329434, 151439158, 756452890, 3779590010, 18888255205, 94405918355, 471899946985, 2359022096225, 11793343217935, 58960151969255, 294776293579255
Offset: 1
Links
- G. C. Greubel, Table of n, a(n) for n = 1..1000
Programs
-
Magma
[n le 1 select 1 else 5*Self(n-1) - Catalan(n-1): n in [1..40]]; // G. C. Greubel, Jul 28 2024
-
Mathematica
Rest@CoefficientList[Series[Sqrt[1-4*x]*(1-Sqrt[1-4*x])/(2*(1-5*x)), {x,0,40}], x] (* G. C. Greubel, Jul 28 2024 *)
-
SageMath
@CachedFunction def A046885(n): return 1 if n==1 else 5*A046885(n-1) - catalan_number(n-1) [A046885(n) for n in range(1,41)] # G. C. Greubel, Jul 28 2024