OFFSET
1,26
COMMENTS
LINKS
Antti Karttunen, Table of n, a(n) for n = 1..16384
R. J. Mathar, Corrigendum to "On the divisibility....", arXiv:1109.0922 [math.NT], 2011.
V. Shevelev, On divisibility of binomial(n-i-1,i-1) by i, Intl. J. of Number Theory, 3, no. 1 (2007), 119-139.
MAPLE
A178101 := 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: nops(dvs) end proc: # R. J. Mathar, May 28 2010
MATHEMATICA
a[n_] := Sum[Boole[Divisible[Binomial[n-d-1, d-1], d] && !CoprimeQ[d, n]], {d, 2, n/2}];
Array[a, 100] (* Jean-François Alcover, Nov 17 2017 *)
PROG
(PARI) a(n) = sum(d=2, n\2, (gcd(d, n) != 1) && ((binomial(n-d-1, d-1) % d) == 0)); \\ Michel Marcus, Feb 17 2016
CROSSREFS
KEYWORD
nonn,look
AUTHOR
Vladimir Shevelev, May 20 2010
EXTENSIONS
a(54), a(68), a(70), a(72), a(78) etc corrected by R. J. Mathar, May 28 2010
STATUS
approved