OFFSET
1,2
MATHEMATICA
f[n_]:=(m = 2; While[Mod[DivisorSigma[n, m], m] > 0, m++]; m); s={}; sn={}; Do[m=f[n]; If[!MemberQ[s, m], AppendTo[s, m]; AppendTo[sn, n]], {n, 1, 1000}]; sn (* Amiram Eldar, Dec 18 2018 after T. D. Noe at A066135 *)
CROSSREFS
KEYWORD
nonn,more
AUTHOR
T. D. Noe, Nov 24 2012
EXTENSIONS
More terms from Amiram Eldar, Dec 18 2018
STATUS
approved