OFFSET
1,2
COMMENTS
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.
a(n) = omega(A014612(n)).
LINKS
T. D. Noe, Table of n, a(n) for n = 1..1000
EXAMPLE
First triprime = 8, has 1 distinct prime divisor (2) so a(1) = 1.
MATHEMATICA
t = {}; Do[f = FactorInteger[n]; If[Total[Transpose[f][[2]]] == 3, AppendTo[t, Length[f]]], {n, 400}]; t (* T. D. Noe, Jan 23 2013 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Wesley Ivan Hurt, Jan 19 2013
STATUS
approved