OFFSET
1,2
MATHEMATICA
Select[Range@ 180, CoprimeQ[# + 1, Binomial[#, Floor[#/2]]] &] (* Michael De Vlieger, Jul 30 2017 *)
PROG
(PARI) for(n=1, 199, if(gcd(n+1, binomial(n, n\2))==1, print1(n, ", "))); \\ Joerg Arndt, Jul 30 2017
CROSSREFS
KEYWORD
nonn,easy,less
AUTHOR
Labos Elemer, Mar 12 2003
EXTENSIONS
Name corrected by Joerg Arndt, Jul 30 2017
STATUS
approved