A066921 a(n) = lcm(Omega(n), omega(n)).

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, 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, 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

Offset

1,4

Links

Harry J. Smith, Table of n, a(n) for n = 1..1000

Example

a(32) = 5 because Omega(32) = 5, omega(32) = 1, and lcm(5, 1) = 5.
a(33) = 2 because Omega(33) = 2, omega(33) = 2.

Mathematica

Table[LCM[PrimeOmega[n], PrimeNu[n]], {n, 100}] (* Alonso del Arte, Dec 25 2015 *)

Prog

(PARI) { for (n=1, 1000, write("b066921.txt", n, " ", lcm(bigomega(n), omega(n))) ) } \\ Harry J. Smith, Apr 06 2010

Crossrefs

Cf. A066922.

Sequence in context: A050379 A344589 A153024 * A076649 A157235 A086289

Adjacent sequences: A066918 A066919 A066920 * A066922 A066923 A066924

Keyword

nonn

Author

Benoit Cloitre, Jan 23 2002

Status

approved