login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A012297 Expansion of e.g.f. arctan(sin(x)*sin(x)), even powers only. 1
2, -8, -208, 13312, 161792, -138042368, 9993992192, 4147254525952, -1386315007787008, -171033573395529728, 284350624150760456192, -45336566464274820497408, -87136608072231186709086208 (list; graph; refs; listen; history; text; internal format)
OFFSET

0,1

LINKS

G. C. Greubel, Table of n, a(n) for n = 0..222

EXAMPLE

E.g.f. = 2*x^2/2! - 8*x^4/4! - 208*x^6/6! + 13312*x^8/8! + ...

MATHEMATICA

With[{nn = 40}, CoefficientList[Series[ArcTan[Sin[x]^2], {x, 0, nn}], x] Range[0, nn]!][[1 ;; ;; 2]] (* G. C. Greubel, Oct 26 2018 *)

PROG

(PARI) x='x+O('x^40); v=Vec(serlaplace(atan(sin(x)^2))); vector(#v\2, n, v[2*n-1]) \\ G. C. Greubel, Oct 26 2018

(MAGMA) m:=40; R<x>:=PowerSeriesRing(Rationals(), m); b:=Coefficients(R!( Arctan(Sin(x)^2) ));  [Factorial(2*n+2)*b[2*n+1]: n in [0..Floor((m-4)/2)]];  // G. C. Greubel, Oct 26 2018

CROSSREFS

Sequence in context: A012535 A012300 A009801 * A000893 A030177 A009611

Adjacent sequences:  A012294 A012295 A012296 * A012298 A012299 A012300

KEYWORD

sign

AUTHOR

Patrick Demichel (patrick.demichel(AT)hp.com)

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified February 24 22:04 EST 2020. Contains 332216 sequences. (Running on oeis4.)