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 A078171 #6 Oct 31 2023 12:41:12
%S A078171 2,2,3,4,5,6,7,7,8,9,10,11,11,12,12,13,14,14,15,15,16,16,17,17,18,19,
%T A078171 19,19,19,20,21,21,22,22,23,23,24,24,24,25,25,25,26,26,27,27,28,28,29,
%U A078171 29,29,29,30,30,31,31,31,31,32,32,32,33,34,34,34,34,35,35,36,36,36,36
%N A078171 a(n) = A055086(A000040(n)).
%e A078171 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}, a[25]=18.
%t A078171 Table[Length[Union[Table[Floor[Prime[w]/j], {j, 1, Prime[w]}]]], {w, 1, 100}]
%Y A078171 Cf. A000040, A055086, A051201, A078172.
%K A078171 nonn
%O A078171 1,1
%A A078171 _Labos Elemer_, Nov 27 2002