|
%I #2 Mar 30 2012 17:31:01
%S 6,10,20,28,36,56,66,70,78,84,120,126,136,190,210,220,252,276,286,300,
%T 330,364,378,406,462,496,528,560,630,666,680,780,792,816,820,924,946,
%U 990,1128,1140,1176,1326,1330,1378,1540,1596,1716,1770,1820,1830,2002
%N Even binomial coefficients: C(n,k), 2 <= k <= n-2, sorted, duplicates removed.
%t Take[ Select[ Union[ Flatten[ Table[ Binomial[n, k], {n, 2, 61}, {k, 2, n - 2}]]], EvenQ[ # ] &], 51]
%Y Cf. A007318, A006987, A047999, A095147.
%K easy,nonn
%O 1,1
%A _Robert G. Wilson v_, May 29 2004
|
