A070962 Card{ k<=n | omega(k)!=omega(n) }, where omega(n) = A001221(n).

0, 1, 1, 1, 1, 5, 2, 2, 2, 8, 3, 9, 4, 10, 10, 6, 6, 12, 7, 13, 13, 13, 10, 14, 11, 15, 12, 16, 13, 29, 14, 14, 20, 20, 20, 20, 18, 21, 21, 21, 21, 40, 22, 24, 24, 24, 25, 25, 26, 26, 26, 26, 29, 27, 27, 27, 27, 27, 34, 57, 35, 30, 30, 37, 31, 62, 39, 33, 33, 65, 42, 35, 43, 36

Offset

1,6

Links

Table of n, a(n) for n=1..74.

Eric Weisstein's World of Mathematics, Erdos-Kac theorem

Formula

lim a(n)/n = 1. This follows from the Erdos-Kac theorem on the distribution of values of omega(n) - see the Weisstein link. - Dean Hickerson, Jan 29 2006

Prog

(PARI) for(n=1, 200, print1(sum(i=1, n, if(omega(n)==omega(i), 0, 1)), ", "))

Crossrefs

Sequence in context: A286016 A119320 A363252 * A093008 A297827 A198496

Adjacent sequences: A070959 A070960 A070961 * A070963 A070964 A070965

Keyword

nonn

Author

Benoit Cloitre, May 16 2002

Extensions

Definition corrected by Franklin T. Adams-Watters, Jan 29 2006

Status

approved