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 A345446 #27 Aug 10 2023 14:16:47
%S A345446 0,0,0,1,0,1,0,1,1,1,0,2,0,1,1,0,0,2,0,2,1,1,0,2,1,1,1,2,0,3,0,0,1,1,
%T A345446 1,2,0,1,1,2,0,3,0,2,2,1,0,1,1,2,1,2,0,2,1,2,1,1,0,4,0,1,2,0,1,3,0,2,
%U A345446 1,3,0,2,0,1,2,2,1,3,0,1,0,1,0,4,1,1,1,2,0,4,1,2,1,1
%N A345446 Number of semiprime divisors of n whose square does not divide n.
%C A345446 a(p) = 0 for p prime.
%F A345446 a(n) = Sum_{d|n} [Omega(d) = 2] * (ceiling(n/d^2) - floor(n/d^2)), where [ ] is the Iverson bracket.
%t A345446 Table[Count[Select[Divisors[n],PrimeOmega[#]==2&],_?(!IntegerQ[n/#^2]&)],{n,120}] (* _Harvey P. Dale_, Aug 10 2023 *)
%Y A345446 Cf. A001358, A056595.
%K A345446 nonn
%O A345446 1,12
%A A345446 _Wesley Ivan Hurt_, Jun 19 2021