proposed
approved
proposed
approved
editing
proposed
ta={{0}}; Do[If[Equal[DivisorSigma[1, n+8] -DivisorSigma[1, n]-8, 0]&&!PrimeQ[n], Print[n]; ta=Append[ta, n]], {n, 1000000000, 1300000000}]; ta=Delete[ta, 1] (* Labos Elemer , Jan 10 2005 *)
proposed
editing
editing
proposed
Composite solutions to sigma(x)+8 = sigma(x+8).
ta={{0}}; Do[If[Equal[DivisorSigma[1, n+8] -DivisorSigma[1, n]-8, 0]&&!PrimeQ[n], Print[n]; ta=Append[ta, n]], {n, 1000000000, 1300000000}]; ta=Delete[ta, 1] (* _Labos Elemer_ *)
a(8)-a(10) terms from Labos Elemer(, Jan 10 2005);
approved
editing
a(8)-a(10) terms from _Labos E.Elemer_(Jan 10 2005);
The first 4 terms were found by _Labos E. (labos(AT)ana.sote.hu), Elemer_, see A015915.
proposed
approved
editing
proposed
27, 1615, 1885, 218984, 4218475, 312016315, 746314601, 1125845307, 1132343549, 1296114929, 9016730984, 303419868239, 1197056419121, 2065971192041, 2948269852109, 4562970154601
a(17) > 10^13. - Giovanni Resta, Jul 11 2013
a(12)-a(16) from Giovanni Resta, Jul 11 2013
approved
editing