%I #10 Mar 20 2015 17:30:27
%S 3,6,55,66,171,252,595,666,969,1001,1771,2002,3003,3003,3003,5005,
%T 5995,8008,8778,15051,66066,617716,646646,828828,1269621,1680861,
%U 3262623,3544453,5073705,5676765,6295926,6378736,35133153,61477416,178727871
%N Palindromic binomial coefficients C(n,k) for k >= 2.
%D Alfred S. Posamentier & Ingmar Lehmann, The (Fabulous) Fibonacci Numbers, Prometheus Books, NY, 2007, page 93.
%e C(10,5)=252. 3003 occurs thrice because C(14,6)=C(15,5)=C(78,2)=3003.
%t fQ[n_] := Block[{id = IntegerDigits@n}, id == Reverse@id]; lst = {}; Do[ k = 2; While[k < n/2 + 1, b = Binomial[n, k]; If[fQ@b, AppendTo[lst, b]; Print@b]; k++ ], {n, 25000000}]; Take[ Union@ lst, 35] (* _Robert G. Wilson v_ *)
%Y Cf. A002113, A006987, A104182.
%K nonn,base,nice,easy
%O 1,1
%A Joe DeMaio (jdemaio(AT)kennesaw.edu)
%E More terms from _Robert G. Wilson v_, Aug 20 2000