|
|
|
|
1, 2, 4, 68, 191, 382, 2772, 5698, 19448, 30406, 146903, 887873
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
MATHEMATICA
|
A362456[upto_]:=Module[{d=DivisorSigma[1, Range[upto]], r=1, f}, Join[{r}, Table[If[(f=First[d=Abs[Differences[d]]])>r, r=f, Nothing], upto-1]]]; A362456[10000] (* Paolo Xausa, May 07 2023 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,more
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|