A066435 Conjectured values for a(n) = least natural number k such that sigma(n+k) = sigma(n)+sigma(k) if it exists; otherwise 0.
2, 1, 0, 5, 4, 2, 14, 2, 0, 5, 22, 43, 26, 7, 0, 496, 34, 2, 38, 37, 0, 11, 46, 6, 50, 13, 0, 4, 26, 10, 62, 929, 282, 17, 28, 252, 20, 19, 0, 101, 8, 14, 12, 19, 17, 23, 38, 307, 98, 25, 54, 65, 106, 51, 14, 14, 0, 29, 118, 66, 56, 30, 0, 8128, 22, 22, 44, 85, 66, 35, 135, 18
Offset: 1
References
- R. K. Guy, Unsolved Problems in Number Theory, 3rd Ed., New York, Springer-Verlag, 2004, Section B15.
Crossrefs
Programs
-
Mathematica
a[ n_ ] := Min[ Select[ Range[ 1, 10^6 ], DivisorSigma[ 1, n + # ] == DivisorSigma[ 1, n ] + DivisorSigma[ 1, # ] & ] ]; Table[ a[ i ], {i, 1, 21} ]
Extensions
More terms from T. D. Noe, Jan 20 2004
Comments