OFFSET
1,3
COMMENTS
EXAMPLE
MATHEMATICA
f[n_] := Module[{v = NestWhileList[# / DivisorSigma[0, #] &, n, IntegerQ[#] && # > 1 &], len}, len = Length[v]; If[IntegerQ[v[[2]]], If[v[[-1]] == 1, len - 1, len - 2], Nothing]]; f[1] = 0; Array[f, 1200] (* Amiram Eldar, Jul 11 2024 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Ctibor O. Zizka, Jul 11 2024
STATUS
approved