login
a(n) = floor(n!*(e - 1/24)).
0

%I #5 Oct 13 2024 07:06:19

%S 2,2,5,16,64,321,1927,13490,107921,971290,9712901,106841912,

%T 1282102945,16667338286,233342736005,3500141040076,56002256641217,

%U 952038362900690,17136690532212421,325597120112036000,6511942402240720001,136750790447055120022,3008517389835212640485

%N a(n) = floor(n!*(e - 1/24)).

%D R. K. Guy, Unsolved Problems in Number Theory, Springer, 1st edition, 1981. See section E11.

%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/SchursProblem.html">Schur's Problem</a>.

%t a[n_]:=Floor[n!(E-1/24)]; Array[a,23,0]

%Y Cf. A000522, A370973.

%K nonn,easy

%O 0,1

%A _Stefano Spezia_, Oct 12 2024