|
|
A070961
|
|
a(n) = Card{ k<=n | bigomega(k) != bigomega(n) }.
|
|
2
|
|
|
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;
text;
internal format)
|
|
|
OFFSET
|
1,4
|
|
COMMENTS
|
Conjecture: lim (+) n ->infinity a(n)/n = 1 and lim (-) n ->infinity a(n)/n = 0,7....
|
|
LINKS
|
|
|
MATHEMATICA
|
c[_] := 0; Reap[Do[(c[#]++; Sow[n - c[#]]) &@ PrimeOmega[n], {n, 120}] ][[-1, 1]] (* Michael De Vlieger, Jun 19 2024 *)
|
|
PROG
|
(PARI) for(n=1, 200, print1(sum(i=1, n, if(bigomega(n)==bigomega(i), 0, 1)), ", "))
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,easy
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|