OFFSET
1,2
COMMENTS
First differs from its subsequence A007674 at n=18.
The numbers of terms not exceeding 10^k, for k = 1, 2, ..., are 5, 38, 369, 3655, 36477, 364482, 3644923, 36449447, 364494215, 3644931537, ... . Apparently, the asymptotic density of this sequence exists and equals 0.36449... .
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
MATHEMATICA
seq[kmax_] := Module[{s = {}, e1 = 0, e2}, Do[e2 = PrimeOmega[k] - PrimeNu[k]; If[e1 == e2, AppendTo[s, k - 1]]; e1 = e2, {k, 2, kmax}]; s]; seq[160]
PROG
(PARI) e(n) = {my(f = factor(n)); bigomega(f) - omega(f)};
lista(nmax) = {my(e1 = e(1), e2); for(n=2, nmax, e2=e(n); if(e1 == e2, print1(n-1, ", ")); e1 = e2); }
CROSSREFS
KEYWORD
nonn
AUTHOR
Amiram Eldar, Dec 02 2022
STATUS
approved