OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10134 (calculated using the b-file at A002961)
MATHEMATICA
Differences[Select[Range[500000], DivisorSigma[1, #]== DivisorSigma[ 1, #+1]&]] (* Harvey P. Dale, Oct 16 2011 *)
Differences[SequencePosition[DivisorSigma[1, Range[350000]], {x_, x_}][[All, 1]]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Jun 03 2021 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Asher Auel, Jan 12 2000
EXTENSIONS
More terms from David Wasserman, Mar 01 2002
STATUS
approved