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

Author

T. D. Noe, Nov 24 2012

Keywords

• nonn
• more

Programs

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 *)

Extensions

More terms from Amiram Eldar, Dec 18 2018