A146970 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).

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, 30, 32, 32, 12, 28, 18, 2, 38, 38, 14, 14, 42, 42, 44, 44, 2, 24, 70, 48, 2, 2, 18, 30, 66, 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

Offset

1,1

Links

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

Formula

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

Mathematica

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}];

Crossrefs

Sequence in context: A256700 A175039 A222405 * A078708 A096273 A069981

Adjacent sequences: A146967 A146968 A146969 * A146971 A146972 A146973

Keyword

nonn

Author

Roger L. Bagula, Nov 03 2008

Status

approved