A097276 Least k such that the least common multiple of the numbers 1+n,1+2n,...1+kn is different from the denominator of 1 + 1/(1+n) + 1/(1+2n) +...+1/(1+kn).

5, 38, 29, 11, 4, 79, 14, 28, 24, 5, 13, 53, 18, 4, 213, 13, 10, 8, 5, 79, 9, 7, 4, 176, 40, 11, 8, 5, 40, 10, 9, 4, 39, 14, 27, 13, 5, 13, 6, 83, 4, 17, 8, 10, 23, 5, 7, 32, 22, 4, 19, 26, 28, 19, 5, 78, 38, 11, 4, 26, 14, 36, 18, 5, 12, 26, 17, 4, 16, 25, 9, 7, 5, 26, 11, 8, 4, 21, 10, 9

Offset

1,1

Links

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

Mathematica

Table[k=1; While[LCM@@Range[1, k*n+1, n] == Denominator[Total[1/Range[1, k*n+1, n]]], k++ ]; k+1, {n, 100}]
Table[k=1; While[LCM@@Range[1, k*n+1, n] == Denominator[Total[1/Range[1, k*n+1, n]]], k++ ]; k, {n, 100}]

Crossrefs

Sequence in context: A372839 A061674 A247709 * A280437 A222646 A145156

Adjacent sequences: A097273 A097274 A097275 * A097277 A097278 A097279

Keyword

nonn

Author

T. D. Noe, Aug 03 2004

Status

approved