This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A359276 #4 Jan 28 2023 12:35:53 %S A359276 0,0,1,1,1,2,2,2,2,3,3,3,3,4,4,4,4,5,5,5,5,6,6,6,6,6,7,7,7,7,7,8,8,8, %T A359276 8,8,9,9,9,9,9,10,10,10,10,10,11,11,11,11,11,12,12,12,12,12,13,13,13, %U A359276 13,13,13,14,14,14,14,14,15,15,15,15,15,15,16,16 %N A359276 a(n) = greatest integer k such that (n+k)! <= n^n. %t A359276 a[n_] := Select[-1 + Range[1300], (n + #)! <= n^n < (n + # + 1)! &] %t A359276 Flatten[Table[a[n], {n, 1, 200}]] %Y A359276 Cf. A000142, A000314. %K A359276 nonn %O A359276 1,6 %A A359276 _Clark Kimberling_, Jan 26 2023