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 A078152 #11 Jul 07 2018 19:21:05
%S A078152 0,0,0,0,1,0,2,0,2,1,3,0,4,2,2,2,5,1,5,2,4,4,6,0,6,5,5,3,7,2,8,4,6,6,
%T A078152 6,2,9,7,7,3,9,4,10,6,6,8,10,2,10,7,9,7,11,5,9,6,10,10,12,2,12,10,8,8,
%U A078152 11,7,13,9,11,7,13,4,14,12,10,10,12,8,14,6,12,13,15,5,13,13,13,9,15,6,14
%N A078152 a(n) = A055086(n) - A000005(n).
%C A078152 It appears that the indices of the zeros in the sequence are in A018253. - _Omar E. Pol_, Oct 22 2013
%e A078152 n=15: sequence of D1 = {floor(15/j)} = {15,7,5,3,3,2,2,1,1,1,1,1,1,1,1}, Union(D1) = {15,7,5,3,2,1} = divisors(15) and {7,2}, a(15)=2 the number of terms beyond divisors.
%t A078152 Table[Length[Union[Table[Floor[w/j], {j, 1, w}]]] -DivisorSigma[0, w], {w, 1, 128}]
%Y A078152 Cf. A055086, A000005, A051201, A000203, A076891.
%K A078152 nonn
%O A078152 1,7
%A A078152 _Labos Elemer_, Nov 27 2002