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 A128200 #7 Nov 21 2020 16:55:17
%S A128200 1,3,4,3,4,4,4,5,4,4,3,4,4,4,4,9,4,4,4,3,4,4,4,4,4,7,4,4,4,4,5,4,4,4,
%T A128200 4,4,4,4,4,9,4,4,4,4,4,3,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,3,4,4,4,4,4,4,
%U A128200 9,4,4,4,4,4,4,4,4,4,16,4,4,4,4,9,4,4,4,4,4,4,4,9,4,4,4,4,4,4,4,3,4,4,4,4,4
%N A128200 Numbers of divisors of semiprime powers: A000005(A085155(n)).
%C A128200 The range of this sequence is the union of squares and the odd numbers: A128201.
%H A128200 R. Zumkeller, <a href="/A128200/b128200.txt">Table of n, a(n) for n = 1..10000</a>
%F A128200 a(n) = (1+A001222(A085155(n))/A001221(A085155(n)))^A001221(A085155(n)).
%t A128200 sppQ[n_] := With[{f = FactorInteger[n][[All, 2]]}, n == 1 || Length[f] == 1 && EvenQ[f[[1]]] || Length[f] == 2 && f[[1]] == f[[2]]];
%t A128200 DivisorSigma[0, #]& /@ Select[Range[1000], sppQ] (* _Jean-François Alcover_, Nov 21 2020 *)
%Y A128200 Cf. A005408, A000290.
%K A128200 nonn
%O A128200 1,2
%A A128200 _Reinhard Zumkeller_, Mar 04 2007