login
E.g.f. is cos(tan(x)/cos(x)), coefficients of even powers of x.
1

%I #25 Apr 12 2017 23:09:01

%S 1,-1,-19,-517,-18023,-587529,19183749,12219870323,3379214470193,

%T 883981857320943,238930492488456221,66829754023676225259,

%U 18410558239851140719561,4167711609283156286652647,-82954815883633697917244747,-1284116651310135986426544039581

%N E.g.f. is cos(tan(x)/cos(x)), coefficients of even powers of x.

%C All coefficients of odd powers of x are zero.

%H G. C. Greubel, <a href="/A009081/b009081.txt">Table of n, a(n) for n = 0..235</a>

%t With[{nn=30},Take[CoefficientList[Series[Cos[Tan[x]/Cos[x]],{x,0,nn}], x]Range[0,nn]!,{1,-1,2}]] (* _Harvey P. Dale_, Jan 28 2012 *)

%o (PARI)

%o x='x+O('x^66); /* that many terms */

%o v=Vec(serlaplace(cos(tan(x)/cos(x))));

%o vector(#v\2,j,v[2*j-1]) /* show terms */

%o /* _Joerg Arndt_, Jan 28 2012 */

%K sign

%O 0,3

%A _R. H. Hardin_

%E Extended with signs by _Olivier GĂ©rard_, Mar 15 1997