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 A074595 #9 Oct 10 2024 08:18:56 %S A074595 2,2,3,2,2,3,3,2,2,4,2,3,3,2,2,2,4,2,2,4,3,3,3,2,5,3,2,3,4,2,4,2,2,4, %T A074595 2,3,2,3,3,2,3,5,2,3,3,2,3,5,2,4,2,2,2,4,4,2,3,2,2,2,6,3,3,4,3,4,3,2, %U A074595 5,3,2,5,3,2,3,3,2,2,5,2,2,3,4,2,3,4,2,2,4,4,3,4,2,2,2,6,2,2,3,3,4,4,3,3,2 %N A074595 Number of prime factors of numbers that are not prime powers (with multiplicity). %H A074595 Amiram Eldar, <a href="/A074595/b074595.txt">Table of n, a(n) for n = 1..10000</a> %F A074595 a(n) = A001222(A024619(n)). %t A074595 s[n_] := Module[{f = FactorInteger[n]}, If[Length[f] > 1, Total[f[[;; , 2]]], Nothing]]; Array[s, 200] (* _Amiram Eldar_, Oct 10 2024 *) %Y A074595 Cf. A001222, A024619, A074594, A074592, A074593. %K A074595 nonn %O A074595 1,1 %A A074595 _Reinhard Zumkeller_, Aug 25 2002