A362458 Records in A362452.

0, 1, 62, 574, 1105, 4132, 130741, 259750, 326100

Offset: 1

Author

N. J. A. Sloane, May 07 2023

Keywords

• nonn
• more

Crossrefs

Cf. A362452, A362459.

Programs

Mathematica

A362458[upto_]:=Module[{d=DivisorSigma[1,Range[upto]]-Range[upto],r=0,f},Join[{r},Table[If[(f=First[d=Abs[Differences[d]]])>r,r=f,Nothing],upto-1]]];A362458[10000] (* Paolo Xausa, May 07 2023 *)

Extensions

a(7)-a(9) from Rémy Sigrist, May 07 2023