A051735 Binomial coefficients C(n,k) such that C(n,k)-1 and C(n,k)+1 are twin primes and 2<=k<=floor(n/2).
6, 462, 1877405874732108, 38650751381832, 10000119226331142599460, 51913710643776705684835560, 42552226353687619569660660, 1656627950725900171898183550, 315676747963758694790502389846048040560005901701920, 3571770735028382091998706667681023581492775768
Offset: 0
Keywords
Examples
C(11,5)=462 is a member of the sequence because 461 and 463 are twin primes.
Links
Programs
-
Mathematica
Select[Flatten[Table[Binomial[n,k],{n,200},{k,2,Floor[n/2]}]], AllTrue[ #+ {1,-1},PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Dec 10 2015 *)
Extensions
More terms from Harvey P. Dale, Dec 10 2015
Comments