|
%I #11 Dec 24 2014 09:51:26
%S 10,21,35,55,78,136,165,171,253,286,330,406,462,465,666,680,715,820,
%T 903,969,1081,1287,1378,1711,1716,1771,1830,2211,2380,2485,2628,3081,
%U 3403,3654,3876,3916,4495,4656,5050,5253,5671,5886,6188,6328,7770,8001,8515
%N Binomial coefficients C(p, k), 2<=k<=p-2, sorted, with duplicates removed, p being prime.
%p with(combinat): S := {}: for n from 3 to 80 do p := ithprime(n): for k from 2 to p-2 do S := S union {binomial(p, k)}: od: od: S := sort(convert(S, list)): for j from 1 to 100 do printf(`%d,`,S[j]) od: # _James A. Sellers_, May 19 2003
%Y Cf. A006987, A082583.
%K nonn
%O 1,1
%A _Lekraj Beedassy_, May 07 2003
%E More terms from _James A. Sellers_, May 19 2003
|
