cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A352977 Expansion of e.g.f. cos(2x) cos(3x) / cos(6x) (even powers only).

This page as a plain text file.
%I A352977 #23 Apr 15 2022 14:57:14
%S A352977 1,23,3985,1743623,1424614945,1870693029623,3602792061891505,
%T A352977 9566946196183630823,33500193836861731481665,
%U A352977 149565522713623779723211223,829235405016410370201483113425,5589623533324449496004527793434823,45017811997394066193946619670380594785
%N A352977 Expansion of e.g.f. cos(2x) cos(3x) / cos(6x) (even powers only).
%C A352977 Only terms of even index are given. Terms of odd index are zero.
%H A352977 D. Choi, S. Lim and R. C. Rhoades, <a href="https://doi.org/10.1090/proc/12907">Mock modular forms and quantum modular forms</a>, Proc. Amer. Math. Soc. 144 (2016), 2337-2349. (See page 2341.)
%H A352977 J. H. Conway and N. J. A. Sloane, <a href="http://neilsloane.com/doc/Me150.pdf">Low-Dimensional Lattices. IV. The Mass Formula</a>, Proc. Roy. Soc. London Ser. A 419 (1988), no. 1857, 259-286. (See table 6.)
%H A352977 M. Monks, <a href="https://doi.org/10.1090/S0002-9939-09-10076-X">Number theoretic properties of generating functions related to Dyson's rank for partitions into distinct parts</a>, Proc. Amer. Math. Soc. 138 (2010), no. 2, 481-494. (See page 485.)
%H A352977 D. Shanks and J. W. Wrench, <a href="https://doi.org/10.1090/S0025-5718-1963-0159796-4">The calculation of certain Dirichlet series</a>, Math. Comp. 17 (1963), 136-154. (See line 6 of Table 1.)
%F A352977 E.g.f.: cos(2*x) * cos(3*x) / cos(6*x).
%F A352977 From _Peter Luschny_, Apr 13 2022: (Start)
%F A352977 E.g.f.: (cos(x) + cos(5*x))*sec(6*x) / 2, even powers only.
%F A352977 a(n) = A000192(n)/2. (End)
%F A352977 a(n) ~ 2^(6*n + 3/2) * 3^(2*n + 1/2) * n^(2*n + 1/2) / (Pi^(2*n + 1/2) * exp(2*n)). - _Vaclav Kotesovec_, Apr 15 2022
%p A352977 egf := (cos(x) + cos(5*x))*sec(6*x) / 2: ser := series(egf, x, 32):
%p A352977 seq(n!*coeff(ser, x ,n), n = 0..24, 2); # _Peter Luschny_, Apr 13 2022
%o A352977 (Sage)
%o A352977 x = PowerSeriesRing(QQ, 'x', default_prec=30).gen()
%o A352977 f = cos(2*x) * cos(3*x) / cos(6*x)
%o A352977 [cf for cf in f.egf_to_ogf() if cf]
%o A352977 (PARI) 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
%Y A352977 Intermediate case between A002437 and A349429.
%Y A352977 Cf. A000192.
%K A352977 nonn,easy
%O A352977 0,2
%A A352977 _F. Chapoton_, Apr 13 2022