|
| |
|
|
A112645
|
|
Solutions to Abs[sigma[x+1]-sigma[x]]=2. Divisor sums of x and its neighbor x+1 differ from each other either by +2 or by -2.
|
|
2
| | |
|
|
|
OFFSET
| 1,2
|
|
|
COMMENTS
| 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 or not the next term 7509466514979724803946715958257546=-1+3^71 ?
|
|
|
EXAMPLE
| n=1594322=2.797161 while n+1=3^13;
sigma[n]=2391486,sigma[n+1]=2391484
|
|
|
MATHEMATICA
| 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]
|
|
|
CROSSREFS
| Cf. A000203, A112646, A112647.
Sequence in context: A173365 A140788 A082573 * A194997 A089064 A203635
Adjacent sequences: A112642 A112643 A112644 * A112646 A112647 A112648
|
|
|
KEYWORD
| more,nonn
|
|
|
AUTHOR
| Labos E. (labos(AT)ana.sote.hu), Sep 28 2005
|
| |
|
|
