A146970 - OEIS

%I #5 Mar 04 2018 16:48:31

%S 3,3,7,6,8,8,2,6,16,12,14,14,6,6,18,18,20,20,2,12,34,24,6,18,14,2,30,

%T 30,32,32,12,28,18,2,38,38,14,14,42,42,44,44,2,24,70,48,2,2,18,30,66,

%U 54,2,2,2,30,88,60,62,62,2,2,14,14,68,68,24,24,72,72,74,74,2,2,2,14,92,80,2

%N Created from A135506 by adding successive terms as: a(n) = a(n - 1) + lcm(n, a(n - 1)); f(n) = (a(n)/a(n - 1) - 1) + (a(n + 1)/a(n) - 1).

%F a(n) = a(n - 1) + lcm(n, a(n - 1)); f(n) = (a(n)/a(n - 1) - 1) + (a(n + 1)/a(n) - 1).

%t a[1] = 1; a[n_] := a[n] = a[n - 1] + LCM[n, a[n - 1]]; Table[(a[n]/a[n - 1] - 1) + (a[n + 1]/a[n] - 1), {n, 2, 100}];

%K nonn

%O 1,1

%A _Roger L. Bagula_, Nov 03 2008