A218860 Unique integers appearing in A066135, in order of appearance.

6, 10, 34, 84, 194, 228, 386, 1282, 1538, 3084, 147468, 1956, 1046532, 24578, 3252, 4548, 638978, 5844, 28524, 26626, 229378, 44076, 24636, 59628, 117948, 18804, 75778, 83604, 30468

Offset: 1

Author

T. D. Noe, Nov 24 2012

Keywords

• nonn
• more

Crossrefs

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

Programs

Mathematica

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

Extensions

More terms from Amiram Eldar, Dec 18 2018