|
| |
|
|
A069491
|
|
a(n) = LCM ( 1 to n) / {(n+1)(n+2)...(n+k)} where k is the largest number which gives an integral value.
|
|
0
| |
|
|
1, 2, 6, 12, 10, 60, 420, 840, 252, 2520, 2310, 27720, 1716, 24024, 360360, 720720, 680680, 12252240, 25194, 503880, 10581480, 232792560, 223092870, 5354228880, 1029659400, 26771144400, 2868336900, 80313433200, 77636318760
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,2
|
|
|
MATHEMATICA
| Do[a = LCM @@ Table[i, {i, n}]; k = n + 1; If[ IntegerQ[a/k], While[ IntegerQ[a/k], a = a/k; k++ ]]; Print[a], {n, 1, 30}]
|
|
|
CROSSREFS
| Sequence in context: A145102 A145103 A009230 * A127698 A130503 A074385
Adjacent sequences: A069488 A069489 A069490 * A069492 A069493 A069494
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Amarnath Murthy (amarnath_murthy(AT)yahoo.com), Mar 30 2002
|
|
|
EXTENSIONS
| Edited and extended by Robert G. Wilson v (rgwv(AT)rgwv.com), Apr 01 2002
|
| |
|
|
