login
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
OFFSET
1,4
COMMENTS
Conjecture: lim (+) n ->infinity a(n)/n = 1 and lim (-) n ->infinity a(n)/n = 0,7....
LINKS
Michael De Vlieger, Scatterplot of a(n), n = 1..2^20.
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
Sequence in context: A262610 A175508 A065375 * A243291 A245962 A325705
KEYWORD
nonn,easy
AUTHOR
Benoit Cloitre, May 16 2002
EXTENSIONS
Name corrected by Sean A. Irvine, Jun 19 2024
STATUS
approved