A110461 a(1) = 5; for n>1, if a(n-1) = nk + r, 0 <= r < n, then a(n) = k^(n-r)*(k+1)^r.

5, 6, 8, 16, 324, 24794911296, 6996029506034747046454468824516730633405603329897709154584282406250

Offset

1,1

Comments

The next term has 528 digits and is too large to include.

Links

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

Example

a(2) = 2*3 = 6, a(3) = 2*2*2 = 8, a(4) =2*2*2*2 =16, a(5) = 3*3*3*3*4 = 324.

Mathematica

A110461[1] = 5;
A110461[n_] := A110461[n] = Times @@ (Table[Floor[A110461[n - 1]/ n], {i, 1, n}] + PadLeft[Table[1, {i, 1, Mod[A110461[n - 1], n]}], n]);
Table[A110461[i], {i, 1, 7}] // TableForm (* Keith Schneider (schneidk(AT)email.unc.edu), Jun 14 2007 *)

Crossrefs

Sequence in context: A105057 A058336 A285499 * A242913 A191212 A129318

Adjacent sequences: A110458 A110459 A110460 * A110462 A110463 A110464

Keyword

base,nonn

Author

Amarnath Murthy, Aug 04 2005

Extensions

a(7) from Keith Schneider (schneidk(AT)email.unc.edu), Jun 15 2007

Status

approved