|
|
|
|
#16 by N. J. A. Sloane at Thu Jan 10 22:54:16 EST 2019
|
|
|
|
#15 by Peter Luschny at Thu Jan 10 13:56:24 EST 2019
|
|
|
|
#14 by Peter Luschny at Thu Jan 10 13:50:35 EST 2019
|
| EXAMPLE
|
Generated from Fibonacci polynomials (A011973) and coefficients of odd powers of 1/(1-x):
coefficients of odd powers of 1/(1-x):
|
| MATHEMATICA
|
ShiftedReversion[ser_, n_, sgn_] := CoefficientList[(sgn/x)InverseSeries[Series[x sgn ser, {x, , 0, , n}]], x];
Jacobsthal := (2x^2 - 1)/((x + 1)(2x - 1)); (* with aA001045(0) = 1 *)
|
| PROG
|
(PARI) {a(n)=if(n==0, 1, sum(k=0, (n-1)\2, binomial(n-k-1, k)*binomial(n, 2*k)*2^k/(/ (2*k+1)))}
|
|
|
|
#13 by Peter Luschny at Thu Jan 10 13:45:09 EST 2019
|
| MATHEMATICA
|
ShiftedReversion[ser_, n_, sgn_] := CoefficientList[(sgn/x)InverseSeries[Series[x sgn ser, {x, 0, n}]], x];
Jacobsthal := (2x^2 - 1)/((x + 1)(2x - 1)); (* with a(0) = 1 *)
ShiftedReversion[Jacobsthal, 27, -1] (* Peter Luschny, Jan 10 2019 *)
|
| STATUS
|
approved
editing
|
|
|
|
#12 by Alois P. Heinz at Fri Sep 20 05:55:53 EDT 2013
|
|
|
|
#11 by Vincenzo Librandi at Fri Sep 20 01:13:15 EDT 2013
|
|
|
|
#10 by Vincenzo Librandi at Fri Sep 20 01:13:07 EDT 2013
|
| LINKS
|
Vincenzo Librandi, <a href="/A101786/b101786.txt">Table of n, a(n) for n = 0..1000</a>
|
| STATUS
|
approved
editing
|
|
|
|
#9 by Paul D. Hanna at Thu Sep 19 20:49:01 EDT 2013
|
|
|
|
#8 by Paul D. Hanna at Thu Sep 19 20:48:58 EDT 2013
|
| FORMULA
|
a(n) = Sum_{k=0..[(n-1)/2]} C(n-k-1, k)*C(n, 2*k)*2^k/(2*k+1) for n>0, with a(0)=1. G.f.: A(x) = [ series reversion of x*(1-2*x^2)/(1+x-2*x^2) ]/x.
G.f.: A(x) = (1/x)*Series_Reversion( x*(1 - 2*x^2)/(1+x - 2*x^2) ).
|
| STATUS
|
approved
editing
|
|
|
|
#7 by Bruno Berselli at Tue Sep 17 10:24:32 EDT 2013
|
|
|
|