|
|
|
|
#26 by Harvey P. Dale at Wed Feb 19 13:39:23 EST 2020
|
|
|
|
#25 by Harvey P. Dale at Wed Feb 19 13:39:20 EST 2020
|
| MATHEMATICA
|
With[{nn=30}, Take[CoefficientList[Series[Sin[ [Sin[ [x]^2] , {x, 0, nn}], x ]^] Range[ 0, nn]!, {1, -1, 2 ] (* Even}]] (* _Harvey P. Dale_, Feb 19 Part2020 *)
|
| EXTENSIONS
|
Prior Mathematica program replaced by Harvey P. Dale, Feb 19 2020
|
| STATUS
|
approved
editing
|
|
|
|
#24 by N. J. A. Sloane at Sun Apr 02 21:20:17 EDT 2017
|
|
|
|
#23 by N. J. A. Sloane at Sun Apr 02 21:20:13 EDT 2017
|
| NAME
|
Expansion of e.g.f. sin(sin(x)*sin(x)) = 2/2!*x^2 - 8/4!*x^4 - 88/6!*x^6 + 6592/8!*x)), even powers only.^8 - ...
|
| EXAMPLE
|
2/2!*x^2 - 8/4!*x^4 - 88/6!*x^6 + 6592/8!*x^8 - ...
|
| EXTENSIONS
|
Name edited by Jon E. Schoenfield, Apr 02 2017
|
| STATUS
|
approved
editing
|
|
|
|
#22 by N. J. A. Sloane at Sun Apr 02 21:00:44 EDT 2017
|
|
|
|
#21 by Jon E. Schoenfield at Sun Apr 02 17:51:55 EDT 2017
|
|
|
|
#20 by Jon E. Schoenfield at Sun Apr 02 17:51:36 EDT 2017
|
| NAME
|
sin(sin(x)*sin(x)) = 2/2!*x^2 - 8/4!*x^4 - 88/6!*x^6 + 6592/8!*x^8 - ...
Expansion of e.g.f. sin(sin(x)*sin(x)), even powers only.
|
| EXAMPLE
|
2/2!*x^2 - 8/4!*x^4 - 88/6!*x^6 + 6592/8!*x^8 - ...
|
| EXTENSIONS
|
Name edited by Jon E. Schoenfield, Apr 02 2017
|
| STATUS
|
approved
editing
|
|
|
Discussion
|
Sun Apr 02
| 17:51
| Jon E. Schoenfield: Okay?
|
|
|
|
#19 by N. J. A. Sloane at Sun Apr 02 01:39:49 EDT 2017
|
|
|
|
#18 by Wesley Ivan Hurt at Sat Apr 01 20:48:04 EDT 2017
|
|
|
|
#17 by Jon E. Schoenfield at Sat Apr 01 15:42:32 EDT 2017
|
|
|
|