|
|
A178098
|
|
Numbers n such that exactly two positive d in the range d <= n/2 exist which divide binomial(n-d-1, d-1) and which are not coprime to n.
|
|
8
|
|
|
26, 30, 36, 40, 42, 44, 91, 95, 115, 119, 133, 161, 187, 247, 391, 667, 1147, 1591, 1927, 2491, 3127, 4087, 4891, 5767, 7387, 9991, 10807, 11227, 12091, 17947, 23707, 25591, 28891, 30967, 37627, 38407, 51067, 52891, 55687, 64507, 67591, 70747, 75067, 78391
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
Theorem: A number m > 161 is a member if and only if it is a product p*(p+6) such that both p and p+6 are primes (A023201). The proof is similar to that of Theorem 1 in the Shevelev link. - Vladimir Shevelev, Feb 23 2016
|
|
LINKS
|
|
|
FORMULA
|
|
|
MATHEMATICA
|
Select[Range@ 4000, Function[n, Count[Range[n/2], k_ /; And[! CoprimeQ[n, k], Divisible[Binomial[n - k - 1, k - 1], k]]] == 2]] (* Michael De Vlieger, Feb 17 2016 *)
|
|
PROG
|
(PARI) isok(n)=my(nb = 0); for (d=2, n\2, if ((gcd(d, n) != 1) && ((binomial(n-d-1, d-1) % d) == 0), nb++); if (nb > 2, return (0)); ); nb == 2; \\ Michel Marcus, Feb 17 2016
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|