|
|
A134717
|
|
Odd Motzkin numbers.
|
|
2
|
|
|
1, 1, 9, 21, 51, 127, 323, 835, 15511, 41835, 853467, 2356779, 50852019, 142547559, 400763223, 1129760415, 3192727797, 9043402501, 208023278209, 593742784829
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,3
|
|
COMMENTS
|
|
|
LINKS
|
|
|
MAPLE
|
S:= series(exp(x)*BesselI(1, 2*x)/x, x, 500):
select(type, [seq(simplify(coeff(S, x, j)*j!), j=0..498)], odd); # Robert Israel, Nov 03 2015
|
|
MATHEMATICA
|
Select[Table[(-1)^n Hypergeometric2F1[3/2, -n, 3, 4], {n, 0, 40}], OddQ] (* Vladimir Reshetnikov, Nov 02 2015 *)
|
|
PROG
|
(PARI) a001006(n) = polcoeff((1-x-sqrt((1-x)^2-4*x^2+x^3*O(x^n)))/ (2*x^2), n); for(n=0, 100, if((m=a001006(n))%2==1, print1(m", "))) \\ Altug Alkan, Nov 03 2015
|
|
CROSSREFS
|
|
|
KEYWORD
|
easy,nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|