login

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).

A362459
Indices of records in A362452.
3
1, 2, 120, 4200, 14400, 17640, 243360, 408240, 669240
OFFSET
1,2
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
Sequence in context: A206355 A360607 A157069 * A077540 A272180 A187880
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