OFFSET
0,2
LINKS
G. C. Greubel, Table of n, a(n) for n = 0..1000
FORMULA
MATHEMATICA
CoefficientList[Series[(1-4*x)*(1-Sqrt[1-4*x])/(2*x*(1-5*x)), {x, 0, 40}], x] (* G. C. Greubel, Jul 28 2024 *)
PROG
(Magma)
[n le 1 select 1 else 5*Self(n-1) - 3*Catalan(n-1)/(2*n-3): n in [1..40]]; // G. C. Greubel, Jul 28 2024
(SageMath)
@CachedFunction
[A046814(n) for n in range(41)] # G. C. Greubel, Jul 28 2024
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
EXTENSIONS
Offset corrected by Sean A. Irvine, Apr 25 2021
STATUS
approved