

A070962


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


0



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
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,6


LINKS

Table of n, a(n) for n=1..74.
Eric Weisstein's World of Mathematics, ErdosKac theorem


FORMULA

lim a(n)/n = 1. This follows from the ErdosKac 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: A306966 A286016 A119320 * 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. AdamsWatters, Jan 29 2006


STATUS

approved



