editing
approved
editing
approved
"Omega(n)" in the definition means the number of distinct prime factors of n, counted without multiplicity. This is implemented in Mathematica as PrimeNu[n] rather than as PrimeOmega[n]. - Harvey P. Dale, Jul 08 2017
Harvey P. Dale, <a href="/A067879/b067879.txt">Table of n, a(n) for n = 1..200</a>
Select[Range[13000], DivisorSigma[1, #]==EulerPhi[#*PrimeNu[#]+1]&] (* Harvey P. Dale, Jul 08 2017 *)
approved
editing
_Benoit Cloitre (benoit7848c(AT)orange.fr), _, Mar 02 2002
easy,nonn,new
Benoit Cloitre (abmtbenoit7848c(AT)wanadooorange.fr), Mar 02 2002
easy,nonn,new
Benoit Cloitre (abcloitreabmt(AT)modulonetwanadoo.fr), Mar 02 2002
easy,nonn,new
Benoit Cloitre (abcloitre(AT)wanadoomodulonet.fr), Mar 02 2002
Numbers n such that sigma(n)=phi(n*omega(n)+1).
easy,nonn,new
n such that sigma(n)=phi(n*omega(n)+1).
1, 6, 30, 38, 55, 85, 87, 188, 236, 264, 445, 451, 618, 655, 672, 715, 717, 897, 913, 1221, 1265, 1357, 1824, 2095, 2515, 2765, 3009, 3247, 3471, 3605, 3741, 4088, 4117, 4237, 5071, 6747, 7195, 7689, 7701, 8120, 10885, 11577, 12128, 12245, 12549
1,2
easy,nonn
Benoit Cloitre (abcloitre(AT)wanadoo.fr), Mar 02 2002
approved