|
| |
|
|
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).
|
|
0
| |
|
|
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
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
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: A200690 A045773 A175039 * A078708 A096273 A069981
Adjacent sequences: A146967 A146968 A146969 * A146971 A146972 A146973
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Nov 03 2008
|
| |
|
|
