A134718 Even Motzkin numbers.

2, 4, 2188, 5798, 113634, 310572, 6536382, 18199284, 25669818476, 73007772802, 114988706524270, 330931069469828, 556704809728838604, 1614282136160911722, 39532221379621112004, 114956499435014161638, 2837208756709314025578

Offset

1,1

Comments

The values of n such that the Motzkin number M(n) (=A001006(n)) is even are given in A081706. - Emeric Deutsch, Dec 07 2007

A001006 except A134717. - Vladimir Reshetnikov, Nov 02 2015

Links

G. C. Greubel, Table of n, a(n) for n = 1..300

E. Deutsch and B. E. Sagan, Congruences for Catalan and Motzkin numbers and related sequences, J. Num. Theory 117 (2006), 191-215.

Maple

M := n -> add(binomial(n, 2*k)*binomial(2*k, k)/(k+1), k=0..n):
a := n -> `if`(`mod`(M(n), 2)=0, M(n), NULL);
seq(a(n), n=0..50); # Emeric Deutsch, Dec 07 2007

Mathematica

Select[Table[(-1)^n Hypergeometric2F1[3/2, -n, 3, 4], {n, 0, 60}], EvenQ] (* 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==0, print1(m", "))) \\ Altug Alkan, Nov 03 2015

Crossrefs

Cf. A001006, A081706, A134717.

Sequence in context: A219452 A102064 A085638 * A328313 A048829 A070655

Adjacent sequences: A134715 A134716 A134717 * A134719 A134720 A134721

Keyword

easy,nonn

Author

Omar E. Pol, Nov 11 2007

Extensions

More terms from Emeric Deutsch, Dec 07 2007

a(91) in b-file corrected by Andrew Howroyd, Feb 23 2018

Status

approved