A218860 - OEIS

%I #12 Dec 18 2018 15:23:46

%S 6,10,34,84,194,228,386,1282,1538,3084,147468,1956,1046532,24578,3252,

%T 4548,638978,5844,28524,26626,229378,44076,24636,59628,117948,18804,

%U 75778,83604,30468

%N Unique integers appearing in A066135, in order of appearance.

%t f[n_]:=(m = 2; While[Mod[DivisorSigma[n, m], m] > 0, m++]; m); s={}; Do[m=f[n]; If[!MemberQ[s,m],AppendTo[s,m]],{n,1,1000}]; s (* _Amiram Eldar_, Dec 18 2018 after _T. D. Noe_ at A066135 *)

%Y Cf. A218861 (first position of these numbers in A066135).

%K nonn,more

%O 1,1

%A _T. D. Noe_, Nov 24 2012

%E More terms from _Amiram Eldar_, Dec 18 2018