|
| |
|
|
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.
|
|
1
|
| |
|
|
|
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
|
|
|
CROSSREFS
|
Sequence in context: A067527 A105057 A058336 * A067652 A191212 A129318
Adjacent sequences: A110458 A110459 A110460 * A110462 A110463 A110464
|
|
|
KEYWORD
|
base,nonn
|
|
|
AUTHOR
|
Amarnath Murthy (amarnath_murthy(AT)yahoo.com), Aug 04 2005
|
|
|
EXTENSIONS
|
a(7) and Mathematica program from Keith Schneider (schneidk(AT)email.unc.edu), Jun 14 2007, Jun 15 2007
|
|
|
STATUS
|
approved
|
| |
|
|
