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 A095960 #15 Jul 09 2022 11:09:09
%S A095960 0,1,1,1,1,3,1,1,1,3,1,4,1,3,3,1,1,3,1,4,3,3,1,4,1,3,1,4,1,7,1,1,3,3,
%T A095960 3,4,1,3,3,5,1,7,1,4,4,3,1,4,1,3,3,4,1,3,3,5,3,3,1,10,1,3,4,1,3,7,1,4,
%U A095960 3,7,1,4,1,3,3,4,3,7,1,5,1,3,1,10,3,3,3,5,1,9,3,4,3,3,3,4,1,3,4,4,1,7
%N A095960 Number of divisors of n that are less than the squarefree kernel of n.
%H A095960 Reinhard Zumkeller, <a href="/A095960/b095960.txt">Table of n, a(n) for n = 1..10000</a>
%F A095960 a(A005117(n)) = A032741(A005117(n)).
%F A095960 a(A000040(n)) = 1.
%e A095960 n = 40 = 5*2^3, rad(40) = 10: a(40) = #{d:d<10} = #{1,2,4,5,8} = 5.
%t A095960 a[n_] := DivisorSum[n, 1 &, # < Times @@ FactorInteger[n][[;;, 1]] &]; Array[a, 100] (* _Amiram Eldar_, Jul 09 2022 *)
%o A095960 (Haskell)
%o A095960 a095960 n = length [x | x <- a027750_row n, x < a007947 n]
%o A095960 -- _Reinhard Zumkeller_, Sep 10 2013
%Y A095960 Cf. A000005, A000040, A005117, A007947, A027750, A032741, A073180.
%K A095960 nonn
%O A095960 1,6
%A A095960 _Reinhard Zumkeller_, Jul 14 2004