OFFSET
3,1
COMMENTS
LINKS
Alois P. Heinz, Table of n, a(n) for n = 3..1000
MAPLE
b:= proc(n) b(n):= n * binomial(n-1, floor((n-1)/2)) end:
a:= proc(n) local k;
for k from 0 while irem(b(n+k), n)=0 do od; k
end:
seq (a(n), n=3..100); # Alois P. Heinz, Aug 17 2012
MATHEMATICA
b[n_] := n Binomial[n-1, Floor[(n-1)/2]];
a[n_] := Module[{k = 0}, While[Mod[b[n+k], n] == 0, k++]; k];
a /@ Range[3, 100] (* Jean-François Alcover, Nov 22 2020, after Alois P. Heinz *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Shevelev, Aug 17 2012
STATUS
approved