A377013 a(n) = floor(n!*(e - 1/24)).
2, 2, 5, 16, 64, 321, 1927, 13490, 107921, 971290, 9712901, 106841912, 1282102945, 16667338286, 233342736005, 3500141040076, 56002256641217, 952038362900690, 17136690532212421, 325597120112036000, 6511942402240720001, 136750790447055120022, 3008517389835212640485
Offset: 0
References
- R. K. Guy, Unsolved Problems in Number Theory, Springer, 1st edition, 1981. See section E11.
Links
- Eric Weisstein's World of Mathematics, Schur's Problem.
Programs
-
Mathematica
a[n_]:=Floor[n!(E-1/24)]; Array[a,23,0]