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,1

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={}; 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 *)

Crossrefs

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

Sequence in context: A121801 A256721 A192774 * A242866 A360519 A363576

Adjacent sequences: A218857 A218858 A218859 * A218861 A218862 A218863

Keyword

nonn,more

Author

T. D. Noe, Nov 24 2012

Extensions

More terms from Amiram Eldar, Dec 18 2018

Status

approved