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 A214080 #24 Jan 20 2024 11:29:06
%S A214080 1,1,1,1,2,2,2,2,2,6,6,6,6,6,6,6,24,24,24,24,24,24,24,24,24,120,120,
%T A214080 120,120,120,120,120,120,120,120,120,720,720,720,720,720,720,720,720,
%U A214080 720,720,720,720,720,5040,5040,5040,5040,5040,5040,5040,5040,5040
%N A214080 a(n) = (floor(sqrt(n)))!
%H A214080 Vincenzo Librandi, <a href="/A214080/b214080.txt">Table of n, a(n) for n = 0..1000</a>
%F A214080 Sum_{n>=0} 1/a(n) = 3*e. - _Amiram Eldar_, Aug 15 2022
%F A214080 a(n) = A000142(A000196(n)). - _Michel Marcus_, Aug 15 2022
%t A214080 Table[Floor[Sqrt[n]]!, {n, 0, 100}] (* _T. D. Noe_, Dec 23 2012 *)
%o A214080 (Derive) PROG(y := [], n := 50, LOOP(IF( = -1, RETURN y), y := ADJOIN(FLOOR(SQRT(n))!, y), n := n - 1))
%o A214080 (Magma) [Factorial(Floor(Sqrt(n))): n in [0..60]]; // _Vincenzo Librandi_, Feb 13 2013
%o A214080 (PARI) a(n) = floor(sqrt(n))!; \\ _Altug Alkan_, Jan 11 2016
%Y A214080 Cf. A214078, A214079, A214080, A214081, A214083, A055228, A055226.
%Y A214080 Cf. A000142, A000196.
%K A214080 easy,nonn
%O A214080 0,5
%A A214080 _Mohammad K. Azarian_, Dec 22 2012