OFFSET
1,4
MATHEMATICA
Lcycle = Function[ x, z = 1; pz = Position[x[[Range[z]]], x[[z + 1]]]; While[Length[pz] == 0, z++; pz = Position[ x[[Range[z]]], x[[z + 1]]]]; z - pz[[1, 1]] + 1]; sopfr = Function[x, Plus @@ Map[Times @@ # &, FactorInteger[x]]]; Table[tb = NestList[sopfr[n# + 1] &, 1, 350]; Lcycle[tb], {n, 1, 100}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Carlos Alves, Dec 16 2007
STATUS
approved