login
A362458
Records in A362452.
3
0, 1, 62, 574, 1105, 4132, 130741, 259750, 326100
OFFSET
1,3
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 *)
CROSSREFS
Sequence in context: A202959 A209913 A209906 * A069473 A249530 A249531
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