1,5

A007318(n,a(n)) mod n = 0;

a(p) = floor(p/2) for primes p.

R. Zumkeller, Table of n, a(n) for n = 1..1000

Index entries for triangles and arrays related to Pascal's triangle

Eric Weisstein's World of Mathematics, Binomial Coefficient

gk[n_]:=Module[{k=Floor[n/2]}, While[!Divisible[Binomial[n, k], n], k--]; k]; Array[gk, 80] (* Harvey P. Dale, Nov 22 2013 *)

Sequence in context: A173989 A093068 A097357 * A151662 A049786 A282611

Adjacent sequences: A123618 A123619 A123620 * A123622 A123623 A123624

nonn

Reinhard Zumkeller, Oct 03 2006

approved