A182203 - OEIS

%I #18 Jan 30 2023 04:55:32

%S 2,3,9,12,13,17,18,21,22,23,28,31,32,34,35,36,38,39,40,41,44,48,49,51,

%T 52,56,57,58,63,65,67,68,69,71,72,73,75,77,78,79,80,81,82,85,86,87,88,

%U 90,91,92,93,97,99,100

%N Numbers n for which A068869(n) > sqrt(n!).

%C There are two cases: A068869(n) > sqrt(n!) in this sequence and A068869(n) < sqrt(n!) in A182204.

%t aa = {}; Do[k = Ceiling[Sqrt[n!]]^2 - n!; If[k > Sqrt[n!], AppendTo[aa, n]], {n, 1, 100}]; aa

%Y Cf. A068869, A182204.

%K nonn

%O 1,1

%A _Artur Jasinski_, Apr 17 2012