|
|
|
|
#42 by Peter Luschny at Tue Oct 02 05:07:05 EDT 2018
|
|
|
|
#41 by Peter Luschny at Tue Oct 02 05:06:02 EDT 2018
|
| MAPLE
|
# Alternative:
A000152list := proc(len) series(JacobiTheta3(0, x)^16, x, len+1);
seq(coeff(%, x, j), j=0..len-1) end: A000152list(24); # Peter Luschny, Oct 02 2018
|
| CROSSREFS
|
16thRow d=16 of A122141 columnand of A286815. - _SeiichiA319574, 16th Manyama_, Maycolumn 27of 2017A286815.
Row d=16 of A122141.
|
| STATUS
|
approved
editing
|
|
|
|
#40 by Bruno Berselli at Thu Jul 06 02:50:05 EDT 2017
|
|
|
|
#39 by Jean-François Alcover at Thu Jul 06 02:14:44 EDT 2017
|
|
|
|
#38 by Jean-François Alcover at Thu Jul 06 02:14:39 EDT 2017
|
| MATHEMATICA
|
CoefficientList[EllipticTheta[3, 0, x]^16 + O[x]^24, x] (* Jean-François Alcover, Jul 06 2017 *)
|
| STATUS
|
approved
editing
|
|
|
|
#37 by Alois P. Heinz at Sat May 27 11:09:01 EDT 2017
|
|
|
|
#36 by Seiichi Manyama at Sat May 27 11:07:54 EDT 2017
|
|
|
|
#35 by Seiichi Manyama at Sat May 27 11:05:38 EDT 2017
|
|
|
|
#34 by Seiichi Manyama at Sat May 27 11:01:17 EDT 2017
|
| FORMULA
|
a(n) = (32/n)*Sum_{k=1..n} A186690(k)*a(n-k), a(0) = 1. - Seiichi Manyama, May 27 2017
|
| STATUS
|
approved
editing
|
|
|
|
#33 by Bruno Berselli at Fri Jan 13 07:57:52 EST 2017
|
|
|
|