This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A076530 #22 Apr 13 2020 12:40:02 %S A076530 2,3,23,1967,3263,5015,60455,1016507,4420163,12055511,14365607, %T A076530 25726727,27896423,66562307,72764735,98734967,175186655,224868311, %U A076530 253694927,288657203,386668343,421575407,504737747,630645455,1493547999 %N A076530 Numbers n such that sigma(n) = sigma(n+1) - sigma(n-1). %H A076530 Donovan Johnson and Giovanni Resta, <a href="/A076530/b076530.txt">Table of n, a(n) for n = 1..112</a> (terms < 10^13, first 50 terms from Donovan Johnson) %F A076530 a(n) = A065900(n) - 1 = A104149(n) + 1. - _Alex Ratushnyak_, Jul 06 2013 %e A076530 sigma(24) = 60. sigma(23) = 24. sigma(22) = 36 and 24 = 60 - 36; hence 23 is a term of the sequence. %t A076530 Select[Range[2, 10^5], DivisorSigma[1, # ] == DivisorSigma[1, # + 1] - DivisorSigma[1, # - 1] &] %t A076530 Flatten[Position[Partition[DivisorSigma[1,Range[1493548000]],3,1],_?(#[[2]] == #[[3]]-#[[1]]&),1,Heads->False]]+1 (* _Harvey P. Dale_, Apr 13 2020 *) %Y A076530 Cf. A000203, A065900, A104149. %K A076530 nonn %O A076530 1,1 %A A076530 _Joseph L. Pe_, Oct 18 2002 %E A076530 a(8)-a(25) from _Donovan Johnson_, Feb 01 2009