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 A099641 #4 Oct 15 2013 22:32:35
%S A099641 1,5,6,12,13,14,15,31,32,34,69,73,74,75,76,77,181,445,1052,6455,6456,
%T A099641 6457,6459,6460,6466,15928,16055,40073,40078,40080,40081,40082,40083,
%U A099641 40122,100362,100364,100365,251707,251711,251712,251717,251719,251721
%N A099641 Number of solutions to x*frac[p(x)/x]<=Log[n] or A004648(n)<=Log[n].
%C A099641 Solutions appear in clusters because of features of diagram visible at A004648. Later clusters are introduced by 6455, 15928, 40073, 100362, 251707, 637235, 4124455, respectively.
%C A099641 Number of solutions in consecutive clusters seem to be as follows: 1,2,4,3,6,1,1,1,6,2,7,3 etc..
%t A099641 ta={{0}};Do[s=w*fra[Prime[w]/w];If[ !Greater[s, Log[n]], Print[w]; ta=Append[ta, w]], {w, 1, 1000000}];ta=Delete[ta, 1]
%Y A099641 Cf. A004648.
%Y A099641 Cf. A023143-A023152, A072610.
%K A099641 nonn
%O A099641 1,2
%A A099641 _Labos Elemer_, Nov 02 2004