

A002961


Numbers k such that k and k+1 have same sum of divisors.
(Formerly M4950)


91



14, 206, 957, 1334, 1364, 1634, 2685, 2974, 4364, 14841, 18873, 19358, 20145, 24957, 33998, 36566, 42818, 56564, 64665, 74918, 79826, 79833, 84134, 92685, 109214, 111506, 116937, 122073, 138237, 147454, 161001, 162602, 166934
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,1


COMMENTS

For the values of n < 2*10^10 in this sequence, sigma(n)/n is between 1.5 and 2.25.  T. D. Noe, Sep 17 2007
Whether this sequence is infinite is an unsolved problem, as noted in many of the references and links.  Franklin T. AdamsWatters, Jan 25 2010
144806446575 is the first term for which sigma(n)/n > 2.25. All n < 10^12 have sigma(n)/n > 3/2.  T. D. Noe, Feb 18 2010
Numbers n such that n + 1 = antisigma(n+1)  antisigma(n), where antisigma(n) = A024816(n) = the sum of the nondivisors of n that are between 1 and n. Example for n = 14: 15 = antisigma(15)  antisigma(14) = 96  81.  Jaroslav Krizek, Nov 10 2013
Up to 10^13, the value of the sigma(n)/n varies between 1417728000/945151999 (attained for n = 2835455997) and 2913242112/1263730145 (for n = 5174974943775).  Giovanni Resta, Feb 26 2014
Also numbers n such that A242962(n) = A242962(n+1), with A242962(n) = T(n) mod antisigma(n), where T(n) = A000217(n) is the nth triangular number and antisigma(n) = A024816(n) is the sum of numbers less than n which do not divide n.  Jaroslav Krizek, May 29 2014
Guy and Shanks construct 5559060136088313 as a term of this sequence.  Michel Marcus, Dec 29 2014
Note that in all cases, n and n+1 are composite.  Zak Seidov, May 03 2016


REFERENCES

M. Abramowitz and I. A. Stegun, eds., Handbook of Mathematical Functions, National Bureau of Standards Applied Math. Series 55, 1964 (and various reprintings), p. 840.
R. K. Guy, Unsolved Problems in Theory of Numbers, Sect. B13.
W. Sierpiński, A Selection of Problems in the Theory of Numbers. Macmillan, NY, 1964, p. 110.
N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).


LINKS

M. Abramowitz and I. A. Stegun, eds., Handbook of Mathematical Functions, National Bureau of Standards, Applied Math. Series 55, Tenth Printing, 1972 [alternative scanned copy].


FORMULA

Sum_{n>=1} 1/a(n) is in the interval (0.080958, 610837) (Bayless and Kinlaw, 2015).  Amiram Eldar, Oct 15 2020


MATHEMATICA

Flatten[Position[Partition[DivisorSigma[1, Range[170000]], 2, 1], {x_, x_}]] (* Harvey P. Dale, Aug 08 2011 *)
SequencePosition[DivisorSigma[1, Range[200000]], {x_, x_}][[All, 1]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Mar 06 2018 *)


PROG

(PARI) t1=sigma(1); for(n=2, 1e6, t2=sigma(n); if(t2==t1, print1(n1", ")); t1=t2) \\ Charles R Greathouse IV, Jul 15 2011
(Haskell)
import Data.List (elemIndices)
a002961 n = a002961_list !! (n1)
a002961_list = map (+ 1) $ elemIndices 0 a053222_list


CROSSREFS

Cf. A007373, A015861, A015863, A015865, A015866, A015867, A015876, A015877, A015880, A015881, A015882, A015883, A181647.  Reinhard Zumkeller, Nov 03 2010


KEYWORD

nonn,nice


AUTHOR



EXTENSIONS



STATUS

approved



