A362459 Indices of records in A362452.

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

Offset

1,2

Links

Table of n, a(n) for n=1..9.

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 *)

Crossrefs

Cf. A362452, A362458.

Sequence in context: A206355 A360607 A157069 * A077540 A272180 A187880

Adjacent sequences: A362456 A362457 A362458 * A362460 A362461 A362462

Keyword

nonn,more

Author

N. J. A. Sloane, May 07 2023

Extensions

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

Status

approved