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 A078172 #6 Oct 31 2023 12:38:34
%S A078172 3,4,8,13,22,29,40,44,56,74,84,104,113,124,133,155,177,184,207,217,
%T A078172 232,247,266,283,316,337,342,353,360,382,434,445,475,480,522,529,561,
%U A078172 579,589,622,639,649,692,700,725,732,787,823,851,858,871,889,915,944,982
%N A078172 a(n) = A051201(A000040(n)).
%e A078172 n=25:p(25)=97, sequence Union[Floor[97/j]]= {1,2,3,4,5,6,7,8,9,10,12,13,16,19,24,32,48,97}, sum=a[25]=316.
%t A078172 Table[Apply[Plus, Union[Table[Floor[Prime[w]/j], {j, 1, Prime[w]}]]], {w, 1, 100}]
%Y A078172 Cf. A000040, A055086, A051201, A078171.
%K A078172 nonn
%O A078172 1,1
%A A078172 _Labos Elemer_, Nov 27 2002