Duplicate hunting

[Andrew Plewe]

Sorry, but I don't read carefully comment to A015913
My question will be that DivisorSigma[1, n + 1] - DivisorSigma[1, n] == n
is that same as A000668
if  not for which a(n) occured first difference

My very slowly working Mathematica  procedure is

a = {}; Do[If[DivisorSigma[1, n + 1] - DivisorSigma[1, n] == n, Print[n]; AppendTo[a, n]], {n, 1, 2000000}]; a (*Artur Jasinski*)

ARTUR


Artur pisze:
> A015913 <http://www.research.att.com/%7Enjas/sequences/A015913> = 
> A023200 <http://www.research.att.com/%7Enjas/sequences/A023200>
>
> Artur
>
>
> __________ NOD32 Informacje 2701 (20071204) __________
>
> Wiadomosc zostala sprawdzona przez System Antywirusowy NOD32
> http://www.nod32.com lub http://www.nod32.pl
>
>