A111242 Records in A109890.

1, 2, 3, 6, 8, 12, 15, 25, 32, 48, 53, 106, 265, 318, 321, 428, 642, 2563, 5713, 15019, 113573, 230801, 306127, 941071, 1016963, 5166859, 9536294, 30956561, 123081011, 265811669, 1016775247, 3050325741, 4354364461, 14086296281, 60060345973

Offset

1,2

Links

Table of n, a(n) for n=1..35.

Mathematica

a[1] = 1; a[2] = 2; a[n_] := a[n] = Block[{t = Table[a[i], {i, n - 1}]}, s = Plus @@ t; d = Divisors[s]; l = Complement[d, t]; If[l != {}, k = First[l], k = s; While[Position[t, k] == {}, k += s]; k]]; b = 0; t = {}; Do[If[a[n] > b, b = a[n]; AppendTo[t, b]], {n, 2500}]; t (Robert G. Wilson v)

Crossrefs

Cf. A109890, A111243.

Sequence in context: A181687 A194881 A361922 * A343820 A133582 A325342

Adjacent sequences: A111239 A111240 A111241 * A111243 A111244 A111245

Keyword

nonn

Author

N. J. A. Sloane, Oct 30 2005

Extensions

More terms from Robert G. Wilson v, Nov 03 2005

Status

approved