login
A066922
a(n) = gcd(Omega(n), omega(n)).
2
0, 1, 1, 1, 1, 2, 1, 1, 1, 2, 1, 1, 1, 2, 2, 1, 1, 1, 1, 1, 2, 2, 1, 2, 1, 2, 1, 1, 1, 3, 1, 1, 2, 2, 2, 2, 1, 2, 2, 2, 1, 3, 1, 1, 1, 2, 1, 1, 1, 1, 2, 1, 1, 2, 2, 2, 2, 2, 1, 1, 1, 2, 1, 1, 2, 3, 1, 1, 2, 3, 1, 1, 1, 2, 1, 1, 2, 3, 1, 1, 1, 2, 1, 1, 2, 2, 2, 2, 1, 1, 2, 1, 2, 2, 2, 2, 1, 1, 1, 2, 1, 3, 1, 2, 3
OFFSET
1,6
LINKS
MATHEMATICA
Table[GCD[PrimeOmega[n], PrimeNu[n]], {n, 110}] (* Harvey P. Dale, Dec 05 2015 *)
PROG
(PARI) { for (n=1, 1000, write("b066922.txt", n, " ", gcd(bigomega(n), omega(n))) ) } \\ Harry J. Smith, Apr 07 2010
CROSSREFS
Cf. A001221 (omega), A001222 (Omega).
Sequence in context: A351946 A351944 A366918 * A371244 A353835 A033183
KEYWORD
nonn
AUTHOR
Benoit Cloitre, Jan 23 2002
STATUS
approved