login
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.
0

%I #13 Mar 21 2015 23:07:34

%S 1,2,4,6,12,18,36,54,72,90,108,126,252,378,504,630,756,882,1764,2646,

%T 3528,4410,5292,6174,7056,7938,8820,9702,10584,11466,12348,13230,

%U 14112,14994,15876,16758,33516,50274,67032,83790,100548,117306,134064,150822

%N 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.

%e 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.

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

%K easy,nonn

%O 1,2

%A _Leroy Quet_, Nov 30 2007

%E More terms from _Stefan Steinerberger_, Dec 03 2007