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 A209323 #24 Jun 19 2019 05:15:54 %S A209323 1,2,2,2,1,2,3,3,2,2,2,2,2,3,2,3,2,2,3,2,2,2,3,3,3,3,2,2,2,1,3,3,2,2, %T A209323 2,3,2,3,3,2,2,3,2,3,3,2,3,3,2,2,3,3,3,2,3,2,2,2,3,3,3,2,3,2,3,2,2,3, %U A209323 2,3,3,3,2,3,2,3,3,2,2,2,2,1,3,3,2,3,2 %N A209323 Values of omega(n) (A001221) as n runs through the triprimes (A014612). %C A209323 omega(n) is the number of distinct prime divisors of n. A number is triprime if it has exactly 3 (not necessarily distinct) prime divisors. %C A209323 a(n) = omega(A014612(n)). %H A209323 T. D. Noe, <a href="/A209323/b209323.txt">Table of n, a(n) for n = 1..1000</a> %e A209323 First triprime = 8, has 1 distinct prime divisor (2) so a(1) = 1. %t A209323 t = {}; Do[f = FactorInteger[n]; If[Total[Transpose[f][[2]]] == 3, AppendTo[t, Length[f]]], {n, 400}]; t (* _T. D. Noe_, Jan 23 2013 *) %Y A209323 Cf. A001221, A014612. %K A209323 nonn %O A209323 1,2 %A A209323 _Wesley Ivan Hurt_, Jan 19 2013