|
Search: id:A110461
|
|
|
| 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. |
|
+0
1
|
|
| 5, 6, 8, 16, 324, 24794911296, 6996029506034747046454468824516730633405603329897709154584282406250
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
COMMENT
|
The next term has 528 digits and is too large to include.
|
|
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 this_sequence A067652 A129318 A054378
Adjacent sequences: A110458 A110459 A110460 this_sequence 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
|
|
|
Search completed in 0.002 seconds
|
