A056006 Numbers k such that k | sigma(k) + 2.
1, 3, 10, 136, 32896, 2147516416
Offset: 1
Programs
-
Mathematica
Do[If[Mod[DivisorSigma[1, n]+2, n]==0, Print[n]], {n, 1, 7*10^8}]
-
PARI
for(n=1,5e9,if((sigma(n)+2)%n==0,print1(n", "))) \\ Charles R Greathouse IV, Jun 01 2011
Extensions
a(6) from Charles R Greathouse IV, Jun 01 2011
Edited by M. F. Hasler, Oct 02 2014
Comments