|
|
|
|
|
|
|
|
|
#24 by Charles R Greathouse IV at Thu Sep 08 08:45:12 EDT 2022
|
|
| PROG
|
(MAGMAMagma) [(2*n+1)*(n+1)^(n-1): n in [0..50]]; // G. C. Greubel, Nov 16 2017
|
|
|
|
|
Discussion
|
| Thu Sep 08
| 08:45
| OEIS Server: https://oeis.org/edit/global/2944
|
|
|
|
|
|
|
#23 by Alois P. Heinz at Thu Nov 16 14:23:05 EST 2017
|
|
|
|
|
|
|
|
#22 by Alois P. Heinz at Thu Nov 16 14:22:40 EST 2017
|
|
| FORMULA
|
E.g.f.: (-LambertW(-x)/x)*(1-LambertW(-x))/(1+LambertW(-x)). - Typos corrected by _Alois P. Heinz_, May 22 2016)).
|
|
| STATUS
|
proposed
editing
|
|
|
|
|
Discussion
|
| Thu Nov 16
| 14:22
| Alois P. Heinz: ...
|
|
|
|
|
|
|
#21 by Michel Marcus at Thu Nov 16 13:48:41 EST 2017
|
|
|
|
|
|
|
|
#20 by Michel Marcus at Thu Nov 16 13:48:33 EST 2017
|
|
| FORMULA
|
E.g.f.: (-LambertW(-x)/x)*(1-LambertW(-x))/(1+LambertW(-x)).)). - Typos corrected by _Alois P. Heinz_, May 22 2016
|
|
| EXTENSIONS
|
Typos in e.g.f. corrected by Alois P. Heinz, May 22 2016
|
|
|
|
|
|
|
#19 by Michel Marcus at Thu Nov 16 13:47:39 EST 2017
|
|
| MATHEMATICA
|
nn = 30; T[z_] = -LambertW[-z]; Drop[Range[0, nn]! CoefficientList[Series[T[z] + T[z]^2/2, {z, 0, nn}], z], 1] (* _Geoffrey Critzer_, Mar 25 2017 *)
Range[0, nn]! CoefficientList[Series[T[z] + T[z]^2/2, {z, 0, nn}], z], 1] (* Geoffrey Critzer, Mar 25 2017 *)
|
|
| STATUS
|
proposed
editing
|
|
|
|
|
|
|
#18 by G. C. Greubel at Thu Nov 16 13:43:26 EST 2017
|
|
|
|
|
|
|
|
#17 by G. C. Greubel at Thu Nov 16 13:43:18 EST 2017
|
|
| PROG
|
(MAGMA) [(2*n+1)*(n+1)^(n-1): n in [0..50]]; // G. C. Greubel, Nov 16 2017
|
|
| STATUS
|
approved
editing
|
|
|
|
|
|
|
#16 by Alois P. Heinz at Mon Aug 21 21:32:38 EDT 2017
|
|
|
|
|
|
|
|
#15 by Alois P. Heinz at Mon Aug 21 21:32:34 EDT 2017
|
|
| MATHEMATICA
|
Range[0, nn]! CoefficientList[Series[T[z] + T[z]^2/2, {z, 0, nn}], z], 1] (*_] (* _Geoffrey Critzer_, Mar 25 2017*) *)
|
|
| STATUS
|
approved
editing
|
|
|
|
|
|
