login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A111242 Records in A109890. 2
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; text; internal format)
OFFSET
1,2
LINKS
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
Sequence in context: A181687 A194881 A361922 * A343820 A133582 A325342
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Oct 30 2005
EXTENSIONS
More terms from Robert G. Wilson v, Nov 03 2005
STATUS
approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified July 22 06:32 EDT 2024. Contains 374481 sequences. (Running on oeis4.)