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 A078160 #14 Aug 18 2024 05:17:25
%S A078160 1,2,4,8,20,52,140,400,1203,3808,12634,43771,157821,590518,2287070,
%T A078160 9148286,37719353,160029667,697553152,3119552536,14295585635,
%U A078160 67052240163,321571247089,1575370942644,7876854713228,40164235888490,208699491618146,1104333907134455,5947020092025820
%N A078160 a(n) = A055086(n!).
%H A078160 Amiram Eldar, <a href="/A078160/b078160.txt">Table of n, a(n) for n = 1..807</a>
%F A078160 a(n) = A027423(n) + A078155(n). - _Amiram Eldar_, Aug 18 2024
%t A078160 Table[ Length[ Union[ Table[ Floor[w!/j], {j, 1, w!}]]], {w, 1, 11}]
%t A078160 a[n_] := Floor[Sqrt[4*n! + 1]] - 1; Array[a, 30] (* _Amiram Eldar_, Aug 18 2024 *)
%o A078160 (PARI) a(n)=sqrtint(4*n! + 1) - 1 \\ _Charles R Greathouse IV_, Mar 01 2018
%Y A078160 Cf. A027423, A055086, A078155, A078159, A078161, A078162.
%K A078160 nonn
%O A078160 1,2
%A A078160 _Labos Elemer_, Nov 27 2002
%E A078160 Extended by _Robert G. Wilson v_, Dec 02 2002
%E A078160 More terms from _Charles R Greathouse IV_, Mar 01 2018
%E A078160 a(25)-a(29) from _Amiram Eldar_, Aug 18 2024