|
| |
| |
|
|
|
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
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,2
|
|
|
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: A122378 A181687 A194881 * A133582 A085642 A049194
Adjacent sequences: A111239 A111240 A111241 * A111243 A111244 A111245
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| N. J. A. Sloane (njas(AT)research.att.com), Oct 30 2005
|
|
|
EXTENSIONS
| More terms from Robert G. Wilson v (rgwv(AT)rgwv.com), Nov 03 2005
|
| |
|
|
