A346423 Numbers m such that Sum_{k=1..m} omega(k) = sigma(m).
11, 230, 52830, 160908, 6134334960
Offset: 1
Examples
The sum of number of distinct primes dividing numbers up to 11 is 1+1+1+1+2+1+1+1+2+1 = sigma(11), so 11 is a term.
Programs
-
Mathematica
s=0;Do[s=s+PrimeNu[n];If[DivisorSigma[1,n]==s,Print[n]],{n,2,160908}]
Extensions
a(5) from Martin Ehrenstein, Aug 22 2021
Comments