%I #14 Apr 21 2021 03:55:33
%S 1,2,5,7,16,22,23,27,28,29,30,34,35,38,40,43,44,45,47,50,52,54,55,57,
%T 58,59,60,64,65,67,68,72,73,78,82,88,90,91,92,93,95,96,99,101,107,108,
%U 112,113,114,116,117,118,119,122,124,125,128,129,130,131,132,133,134,140,142,143,144,147,154,160,162,164,167
%N Numbers k such that Gamma(k - 1/2) has fractional part > 1/2.
%C Complement of A325209.
%e 1.77245, 0.886227, 1.32934, 3.32335, 11.6317, 52.3428.
%e Exact values are v, v/2, 3v/4, 15v/8, ..., where v = sqrt(Pi) = A002161.
%t t[n_] := N[Gamma[n - 1/2], 300] ; r = Range[200];
%t Select[r, FractionalPart[t[#]] < 1/2 &] (* A325209 *)
%t Select[r, FractionalPart[t[#]] > 1/2 &] (* A325210 *)
%Y Cf. A000142, A002161, A325209.
%K nonn
%O 1,2
%A _Clark Kimberling_, Apr 09 2019
|