A362459 Indices of records in A362452.

1, 2, 120, 4200, 14400, 17640, 243360, 408240, 669240

Offset: 1

Author

N. J. A. Sloane, May 07 2023

Keywords

• nonn
• more

Crossrefs

Cf. A362452, A362458.

Programs

Mathematica

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

Extensions

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