%I #2 Mar 30 2012 17:31:01

%S 3,4,5,6,8,14,17,20,22,26,30,42,44,47,68,74,79,86,90,93,101,106,112,

%T 122,128,142,155,158,172,189,192,200,206,211,212,218,222,230,233,240,

%U 242,268,275,278,301,306,310,314,317,324,327,332,338,344,347,370,380,416

%N Numbers n with property that binomial (2n, n) / (n-2) is an integer.

%t Select[ Range[421], Mod[Binomial[2#, # ], (# - 2)] == 0 &]

%Y Cf. A000108, A094453, A094575.

%K nonn

%O 1,1

%A _Robert G. Wilson v_, May 11 2004