A079782 Final term of n-th row of triangle in A079784.

2, 5, 11, 11, 59, 59, 419, 839, 2519, 2519, 27719, 27719, 360359, 360359, 360359, 720719, 12252239, 12252239, 232792559, 232792559, 232792559, 232792559, 5354228879, 5354228879, 26771144399, 26771144399, 80313433199, 80313433199, 2329089562799, 2329089562799

Offset

1,1

Comments

For n >= 4, a(n) = A003418(n) - 1. Also for n < 4, a(n) is the smallest number congruent to (i-1) (mod i) for any i in {1..n}. That results directly from the definition of A003418 (if p == 0 (mod q), p-1 == (q-1) (mod q)) and from the first comment. - Philippe LALLOUET (philip.lallouet(AT)wanadoo.fr), Aug 29 2007

Links

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

Example

a(4) = lcm(1, 2, 3, 4) - 1 = 12 - 1 = 11. a(5) = lcm(1, 2, 3, 4, 5) - 1 = 60 - 1 = 59. - Michael Somos, Feb 28 2014

Maple

A079782 := proc(n) local a, found, r ; a := n+1 ; while true do found := true ; for r from 1 to n do if (a+r-1) mod (n-r+1) <> 0 then found := false ; break ; fi ; od ; if found then RETURN(a+n-1) ; fi ; a :=a+1 ; od ; end: for n from 1 to 20 do print(A079782(n)) ; od ; # R. J. Mathar, Nov 12 2006

Prog

(PARI) okrow(m, n) = {v = vector(n, i, i+m-1); for (i=1, n, if (v[i] % (n-i+1), return (0)); ); return (1); }
a(n) = {m = n+1; while (! okrow(m, n), m++); m+n-1; } \\ Michel Marcus, Feb 28 2014

Crossrefs

Cf. A079781, A079783, A079784.

Sequence in context: A062251 A091114 A155767 * A371433 A093554 A168453

Adjacent sequences: A079779 A079780 A079781 * A079783 A079784 A079785

Keyword

nonn

Author

Amarnath Murthy, Feb 03 2003

Extensions

More terms from R. J. Mathar, Nov 12 2006

More terms from Michel Marcus, Feb 28 2014

Status

approved