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, Table of n, a(n) for n = 1..10000
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
KEYWORD
nonn,easy
AUTHOR
Benoit Cloitre, May 16 2002
EXTENSIONS
Name corrected by Sean A. Irvine, Jun 19 2024
STATUS
approved