A133488 a(1) = 1. a(n) = a(n-1) + a(m), where m is the largest term of the sequence {a(k)} which is less than n.

1, 2, 4, 6, 12, 18, 36, 54, 72, 90, 108, 126, 252, 378, 504, 630, 756, 882, 1764, 2646, 3528, 4410, 5292, 6174, 7056, 7938, 8820, 9702, 10584, 11466, 12348, 13230, 14112, 14994, 15876, 16758, 33516, 50274, 67032, 83790, 100548, 117306, 134064, 150822

Offset

1,2

Links

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

Example

The largest term of the sequence which is less than 5 is a(3) = 4. So a(5) = a(4) + a(4) = 6 + 6 = 12.

Mathematica

a = {1}; Do[AppendTo[a, a[[ -1]] + a[[Select[a, # < n &][[ -1]]]]], {n, 2, 50}]; a (* Stefan Steinerberger, Dec 03 2007 *)

Crossrefs

Sequence in context: A306315 A104352 A370584 * A351016 A068911 A243543

Adjacent sequences: A133485 A133486 A133487 * A133489 A133490 A133491

Keyword

easy,nonn

Author

Leroy Quet, Nov 30 2007

Extensions

More terms from Stefan Steinerberger, Dec 03 2007

Status

approved