|
| |
|
|
A070961
|
|
Card{ k<=n | bigomega(k)=bigomega(n) }.
|
|
0
| |
|
|
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
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,4
|
|
|
COMMENTS
| Conjecture: lim (+) n ->infinity a(n)/n = 1 and lim (-) n ->infinity a(n)/n = 0,7....
|
|
|
PROG
| (PARI) for(n=1, 200, print1(sum(i=1, n, if(bigomega(n)==bigomega(i), 0, 1)), ", "))
|
|
|
CROSSREFS
| Sequence in context: A024596 A175508 A065375 * A061721 A066257 A085591
Adjacent sequences: A070958 A070959 A070960 * A070962 A070963 A070964
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Benoit Cloitre (benoit7848c(AT)orange.fr), May 16 2002
|
| |
|
|
