A136541 Numbers n such that sum of the proper divisors of n is equal to (3/4)*phi(n).
33, 2889, 235953, 19129689
Offset: 1
Examples
sigma(33)-33=48-33=15=(3/4)*20=(3/4)*phi(33).
Programs
-
Mathematica
Do[If[DivisorSigma[1,n]-n==3/4*EulerPhi@n,Print[n]],{n,2000000000}]
Formula
For n=1,2,3 & 4 a(n)=3^(2n-1)*(4*3^(2n-1)-1).
Comments