OFFSET
0,3
LINKS
Antti Karttunen, Table of n, a(n) for n = 0..5792
MATHEMATICA
f[n_]:=Length[NestWhileList[#-DivisorSigma[0, #]&, n^2, #!= 0&]]-1; f/@Range[0, 85] (* Ivan N. Ianakiev, Sep 25 2015 *)
PROG
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Sep 23 2015
STATUS
approved