login
A218861
First position of A218860(n) in A066135.
2
1, 2, 4, 8, 24, 48, 144, 288, 576, 1152, 2304, 3456, 4608, 9216, 11520, 16128, 18432, 20736, 25344, 29952, 36864, 39168, 43776, 52992, 59904, 66816, 85248, 99072, 108288
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
Sequence in context: A290659 A286866 A334764 * A359039 A078222 A078223
KEYWORD
nonn,more
AUTHOR
T. D. Noe, Nov 24 2012
EXTENSIONS
More terms from Amiram Eldar, Dec 18 2018
STATUS
approved