OFFSET
1,1
LINKS
V. Shevelev, On divisibility of binomial(n-i-1,i-1) by i, Int. J. Number Theory, 3 (1) (2007), 119-139.
EXAMPLE
The set for n =14 is {4}, which does not admit 14 into the sequence.
The set for n =16 is {6}, which adds 16 to the sequence.
The set for n = 38 is {4,12,14}, which does not admit 38 into the sequence.
MAPLE
isA178110 := proc(n) local dvs, d ; dvs := {} ; for d from 1 to n/2 do if gcd(n, d) > 1 and d in numtheory[divisors]( binomial(n-d-1, d-1)) then dvs := dvs union {d} ; end if; end do: return (min(op(dvs)) = 6) ; end proc:
for n from 1 to 100 do if isA178110(n) then printf("%d, ", n) ; end if; end do: # R. J. Mathar, Aug 20 2010
MATHEMATICA
bQ[n_] := Module[{B={}}, Do[If[GCD[i, n]>1 && Divisible[Binomial[n-i-1, i-1], i], AppendTo[B, i]], {i, 2, Floor[n/2]}]; Min[B]==6]; Select[Range[250], bQ] (* Amiram Eldar, Jan 20 2019 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Shevelev, May 20 2010
EXTENSIONS
39 removed and 82 added by R. J. Mathar, Aug 20 2010
More terms from Amiram Eldar, Jan 20 2019
STATUS
approved