login
Palindromic binomial coefficients C(n,k) for k >= 2.
1

%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