|
|
A134718
|
|
Even Motzkin numbers.
|
|
3
|
|
|
2, 4, 2188, 5798, 113634, 310572, 6536382, 18199284, 25669818476, 73007772802, 114988706524270, 330931069469828, 556704809728838604, 1614282136160911722, 39532221379621112004, 114956499435014161638, 2837208756709314025578
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
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);
|
|
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
|
|
|
KEYWORD
|
easy,nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|