%I #22 Sep 08 2022 08:44:55
%S 0,0,0,2,0,2,0,6,0,2,0,0,0,2,0,6,0,2,0,16,0,2,0,4,0,2,0,20,0,0,0,6,0,
%T 2,0,24,0,2,0,20,0,6,0,28,0,2,0,12,0,2,0,32,0,20,0,0,0,2,0,4,0,2,0,6,
%U 0,42,0,40,0,42,0,52,0,2,0,44,0,20,0,20,0,2,0,0,0,2,0,48,0,0,0,52,0,2,0
%N a(n) = binomial(n, floor(n/2)) mod n.
%C Value 924 occurs for 248 times among the first 20000 terms (see the horizontal stripe near y=1000 in the scatter plot). Where does it originate from? - _Antti Karttunen_, Feb 13 2019
%H Antti Karttunen, <a href="/A042970/b042970.txt">Table of n, a(n) for n = 1..20000</a>
%e a(10) = binomial(10,5) mod 10 = 252 mod 10 = 2.
%p a:=n->modp(binomial(n,floor(n/2)),n): seq(a(n),n=1..110); # _Muniru A Asiru_, Feb 17 2019
%t Table[Mod[Binomial[n, Floor[n/2]], n], {n,1,110}] (* _G. C. Greubel_, Feb 17 2019 *)
%o (PARI) a(n) = binomial(n, n\2) % n; \\ _Michel Marcus_, May 14 2018
%o (Magma) [Binomial(n, Floor(n/2)) mod n: n in [1..110]]; // _G. C. Greubel_, Feb 17 2019
%o (Sage) [mod(binomial(n,floor(n/2)), n) for n in (1..110)] # _G. C. Greubel_, Feb 17 2019
%Y Cf. A001405, A020475.
%K nonn,look
%O 1,4
%A _Labos Elemer_
%E Name corrected by _Jon E. Schoenfield_, May 13 2018