A069491 a(n) = lcm(1..n) / ((n+1)(n+2)...(n+k)) where k is the largest number which gives an integral value.

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

Offset

1,2

Links

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

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: A329654 A009230 A354421 * A127698 A130503 A278232

Adjacent sequences: A069488 A069489 A069490 * A069492 A069493 A069494

Keyword

nonn

Author

Amarnath Murthy, Mar 30 2002

Extensions

Edited and extended by Robert G. Wilson v, Apr 01 2002

Status

approved