A218861 First position of A218860(n) in A066135.

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

Links

Table of n, a(n) for n=1..29.

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

Adjacent sequences: A218858 A218859 A218860 * A218862 A218863 A218864

Keyword

nonn,more

Author

T. D. Noe, Nov 24 2012

Extensions

More terms from Amiram Eldar, Dec 18 2018

Status

approved