OFFSET
0,2
LINKS
Clark Kimberling, Table of n, a(n) for n = 0..1000
EXAMPLE
MATHEMATICA
CoefficientList[Series[2 Cos[x]/(1+Cos[Sqrt[x]]), {x, 0, 20}], x]//Denominator (* Harvey P. Dale, Jun 05 2024 *)
CROSSREFS
KEYWORD
nonn,easy,frac
AUTHOR
Clark Kimberling, Dec 08 2016
EXTENSIONS
Prior Mathematica program corrected by Harvey P. Dale, Jun 05 2024
STATUS
approved