OFFSET
1,1
LINKS
Paolo Xausa, Table of n, a(n) for n = 1..20000 (terms 1..5250 from N. J. A. Sloane)
MATHEMATICA
A362453[upto_]:=Module[{d=DivisorSigma[0, Range[upto]]}, Table[If[First[d=Abs[Differences[d]]]==0, n, Nothing], {n, 2, upto}]]; A362453[200] (* Paolo Xausa, May 07 2023 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, May 05 2023
STATUS
approved