OFFSET
1,1
REFERENCES
GCHQ, The GCHQ Puzzle Book, Penguin, 2016. See page 92.
MATHEMATICA
NestWhileList[DivisorSigma[1, #]-#&, 841, #>0&] (* Paolo Xausa, Oct 16 2023 *)
CROSSREFS
KEYWORD
nonn,fini,full
AUTHOR
N. J. A. Sloane, Apr 22 2023
STATUS
approved