|
%I #19 Jul 30 2017 12:55:30
%S 1,2,3,4,6,7,8,10,12,15,16,18,20,22,24,26,28,30,31,36,40,42,46,48,52,
%T 54,56,58,60,63,64,66,70,72,74,78,80,82,88,96,100,102,106,108,112,114,
%U 118,120,124,126,127,130,132,136,138,148,150,156,162,166,168,170,172,178
%N Numbers n such that gcd( n+1, binomial(n, floor(n/2)) ) = 1.
%t Select[Range@ 180, CoprimeQ[# + 1, Binomial[#, Floor[#/2]]] &] (* _Michael De Vlieger_, Jul 30 2017 *)
%o (PARI) for(n=1,199,if(gcd(n+1,binomial(n,n\2))==1,print1(n,", "))); \\ _Joerg Arndt_, Jul 30 2017
%K nonn,easy,less
%O 1,2
%A _Labos Elemer_, Mar 12 2003
%E Name corrected by _Joerg Arndt_, Jul 30 2017
|
