A070961 Card{ k<=n | bigomega(k)=bigomega(n) }.

0, 1, 1, 3, 2, 4, 3, 7, 6, 6, 6, 10, 7, 9, 9, 15, 10, 15, 11, 16, 14, 14, 14, 22, 16, 16, 22, 22, 19, 23, 20, 31, 22, 22, 22, 33, 25, 24, 24, 36, 28, 34, 29, 35, 35, 30, 32, 46, 32, 39, 33, 40, 37, 49, 36, 50, 37, 37, 42, 53, 43, 40, 50, 63, 42, 52, 48, 53, 45, 54, 51, 69, 52, 49

Offset

1,4

Comments

Conjecture: lim (+) n ->infinity a(n)/n = 1 and lim (-) n ->infinity a(n)/n = 0,7....

Links

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

Prog

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

Crossrefs

Sequence in context: A262610 A175508 A065375 * A243291 A245962 A325705

Adjacent sequences: A070958 A070959 A070960 * A070962 A070963 A070964

Keyword

nonn

Author

Benoit Cloitre, May 16 2002

Status

approved