Original entry on oeis.org
1, 5, 157, 12425, 1836697, 436366445, 152053957237, 73053601590065, 46283414838553777, 37386890114969267285, 37503815980582784378317, 45739346519434253222582105, 66650214918099514832427062857, 114363498315755726948758209518525, 228234739109951323288351261455519397
Offset: 0
-
with(gfun):
series(cos(x)/(1-3*sin(x)^2), x, 30):
L := seriestolist(%):
seq(op(2*i-1,L)*(2*i-2)!, i = 1..floor((1/2)*nops(L)));
# Peter Bala, Feb 06 2017
-
With[{nmax = 50}, CoefficientList[Series[Cos[x]/(1 - 3*Sin[x]^2), {x, 0, nmax}], x]*Range[0, nmax]!][[1 ;; ;; 2]] (* G. C. Greubel, Mar 29 2018 *)
-
x='x+O('x^50); v=Vec(serlaplace(cos(x)/(1 - 3*sin(x)^2))); vector(#v\2,n,v[2*n-1]) \\ G. C. Greubel, Mar 29 2018
A352977
Expansion of e.g.f. cos(2x) cos(3x) / cos(6x) (even powers only).
Original entry on oeis.org
1, 23, 3985, 1743623, 1424614945, 1870693029623, 3602792061891505, 9566946196183630823, 33500193836861731481665, 149565522713623779723211223, 829235405016410370201483113425, 5589623533324449496004527793434823, 45017811997394066193946619670380594785
Offset: 0
- D. Choi, S. Lim and R. C. Rhoades, Mock modular forms and quantum modular forms, Proc. Amer. Math. Soc. 144 (2016), 2337-2349. (See page 2341.)
- J. H. Conway and N. J. A. Sloane, Low-Dimensional Lattices. IV. The Mass Formula, Proc. Roy. Soc. London Ser. A 419 (1988), no. 1857, 259-286. (See table 6.)
- M. Monks, Number theoretic properties of generating functions related to Dyson's rank for partitions into distinct parts, Proc. Amer. Math. Soc. 138 (2010), no. 2, 481-494. (See page 485.)
- D. Shanks and J. W. Wrench, The calculation of certain Dirichlet series, Math. Comp. 17 (1963), 136-154. (See line 6 of Table 1.)
-
egf := (cos(x) + cos(5*x))*sec(6*x) / 2: ser := series(egf, x, 32):
seq(n!*coeff(ser, x ,n), n = 0..24, 2); # Peter Luschny, Apr 13 2022
-
my(x='x+O('x^30)); select(x->(x>0), Vec(serlaplace(cos(2*x)*cos(3*x)/cos(6*x)))) \\ Michel Marcus, Apr 13 2022
-
x = PowerSeriesRing(QQ, 'x', default_prec=30).gen()
f = cos(2*x) * cos(3*x) / cos(6*x)
[cf for cf in f.egf_to_ogf() if cf]
Comments