A067260 Numbers k such that sigma(k+1) = 2*phi(k).
13, 43, 109, 151, 589, 883, 2143, 2725, 4825, 4921, 9541, 13189, 21637, 22249, 22489, 29971, 30229, 33787, 36247, 72541, 73513, 83287, 94489, 109213, 113269, 117367, 189103, 190489, 198457, 216529, 247597, 277447, 297307, 320137, 353821, 357751, 376753, 391543
Offset: 1
Keywords
Links
- Amiram Eldar, Table of n, a(n) for n = 1..1000
Programs
-
Mathematica
Do[If[DivisorSigma[1,n+1]==2*EulerPhi@n,Print[n]],{n,200000}] (* Farideh Firoozbakht, Feb 16 2008 *)
Extensions
More terms from Amiram Eldar, Apr 24 2022
Comments