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 A060737 #17 Jun 15 2024 05:49:32
%S A060737 0,0,1,2,4,9,15,27,44,72,116,230,379,716,1154,1858,2589,5014,7299,
%T A060737 15276,21901,33146,52298,102918,136647,200669,327572,432396,596869,
%U A060737 1220172,1603092,3074018,3752018,5433507,8555035,11952469,14590378,30158257,46318453,66458379
%N A060737 Number of distinct differences between consecutive divisors of n! (ordered by size).
%F A060737 a(n) = A060682(n!).
%e A060737 For n = 4, n! = 24; divisors = {1,2,3,4,6,8,12,24}; differences = {1,1,1,2,2,4,12}, distinct differences = {1,2,4,12}, so a(4) = 4.
%t A060737 a[n_ ] := Length[Union[Drop[d=Divisors[n! ], 1]-Drop[d, -1]]]
%t A060737 Table[Length[Union[Differences[Divisors[n!]]]],{n,0,40}] (* _Harvey P. Dale_, Nov 22 2021 *)
%o A060737 (PARI) a(n) = {my(v = List(), d1 = 1); fordiv(n!, d, if(d > 1, listput(v, d-d1); d1 = d)); #Set(v);} \\ _Amiram Eldar_, Jun 15 2024
%Y A060737 Cf. A000142, A060682, A060738, A060742.
%K A060737 nonn
%O A060737 0,4
%A A060737 _Labos Elemer_, Apr 25 2001
%E A060737 Edited by _Dean Hickerson_, Jan 22 2002
%E A060737 More terms from _Ryan Propper_, Mar 22 2006
%E A060737 a(37)-a(39) from _Amiram Eldar_, Jun 15 2024