|
|
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).
|
|
3
|
|
|
6, 462, 1877405874732108, 38650751381832, 10000119226331142599460, 51913710643776705684835560, 42552226353687619569660660, 1656627950725900171898183550, 315676747963758694790502389846048040560005901701920, 3571770735028382091998706667681023581492775768
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,1
|
|
COMMENTS
|
Sequence is ordered by size of n not size of C(n,k). Link gives list of all values up to n=1352.
|
|
LINKS
|
|
|
EXAMPLE
|
C(11,5)=462 is a member of the sequence because 461 and 463 are twin primes.
|
|
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 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Joe DeMaio (jdemaio(AT)kennesaw.edu), Dec 06 1999
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|