Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).
%I #10 Jan 04 2017 02:39:16
%S 1,8,26,117,2186,145215,1594322
%N Solutions to abs(sigma(x+1) - sigma(x)) = 2. Divisor sums of x and its neighbor x+1 differ from each other by 2.
%C Observe that form of 8, 26, 2186 and 1594322 is -1+3^j. Exponents of powers of 3 suitable as number n+1 are as follows: 2, 3, 7, 13, 71, 103. Is the next term 7509466514979724803946715958257546 = -1 + 3^71?
%C a(8) > 10^13. - _Giovanni Resta_, Jul 11 2013
%e n = 1594322 = 2*797161 while n+1 = 3^13;
%e Sigma(n) = 2391486, sigma(n+1) = 2391484.
%t ta={{0}};Do[s=Abs[DivisorSigma[1, n+1]-DivisorSigma[1, n]]; If[Equal[s, 2], ta=Append[ta, n];Print[n]], {n, 1, 100000000}]; ta=Delete[ta, 1]
%Y Cf. A000203, A112646, A112647.
%K more,nonn
%O 1,2
%A _Labos Elemer_, Sep 28 2005