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
Keywords
Programs
-
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)
Extensions
More terms from Robert G. Wilson v, Nov 03 2005