This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A218861 #8 Dec 18 2018 15:24:00
%S A218861 1,2,4,8,24,48,144,288,576,1152,2304,3456,4608,9216,11520,16128,18432,
%T A218861 20736,25344,29952,36864,39168,43776,52992,59904,66816,85248,99072,
%U A218861 108288
%N A218861 First position of A218860(n) in A066135.
%t A218861 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 *)
%K A218861 nonn,more
%O A218861 1,2
%A A218861 _T. D. Noe_, Nov 24 2012
%E A218861 More terms from _Amiram Eldar_, Dec 18 2018