|
%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
|
