%I #17 Dec 25 2015 21:41:41
%S 0,1,1,2,1,2,1,3,2,2,1,6,1,2,2,4,1,6,1,6,2,2,1,4,2,2,3,6,1,3,1,5,2,2,
%T 2,4,1,2,2,4,1,3,1,6,6,2,1,10,2,6,2,6,1,4,2,4,2,2,1,12,1,2,6,6,2,3,1,
%U 6,2,3,1,10,1,2,6,6,2,3,1,10,4,2,1,12,2,2,2,4,1,12,2,6,2,2,2,6,1,6,6,4,1,3
%N a(n) = lcm(Omega(n), omega(n)).
%H Harry J. Smith, <a href="/A066921/b066921.txt">Table of n, a(n) for n = 1..1000</a>
%e a(32) = 5 because Omega(32) = 5, omega(32) = 1, and lcm(5, 1) = 5.
%e a(33) = 2 because Omega(33) = 2, omega(33) = 2.
%t Table[LCM[PrimeOmega[n], PrimeNu[n]], {n, 100}] (* _Alonso del Arte_, Dec 25 2015 *)
%o (PARI) { for (n=1, 1000, write("b066921.txt", n, " ", lcm(bigomega(n),omega(n))) ) } \\ _Harry J. Smith_, Apr 06 2010
%Y Cf. A066922.
%K nonn
%O 1,4
%A _Benoit Cloitre_, Jan 23 2002