OFFSET
1,1
EXAMPLE
8 shares factors with 2,4 and 6. bin(8,2)=bin(8,6)=28 and bin(8,4)=70. 8 divides neither 28 nor 70 and is therefore on the list.
MATHEMATICA
For[a = 1, a < 1001, a++; c = 0; If[PrimeQ[a] == True, Continue[]]; For[b = 1, b < a + 1, b++, If[And[GCD[b, a] != 1, Mod[Binomial[a, b], a] == 0], c = c + 1]]; If[c == 0, Print[a]]]
CROSSREFS
KEYWORD
nonn
AUTHOR
Neil Fernandez, May 25 2006
STATUS
approved