|
| |
|
|
A137268
|
|
Period and balls triangular sequence for Juggling from Chung-Graham.
|
|
0
| |
|
|
1, 2, 2, 4, 6, 6, 8, 18, 24, 24, 16, 54, 96, 120, 120, 32, 162, 384, 600, 720, 720, 64, 486, 1536, 3000, 4320, 5040, 5040, 128, 1458, 6144, 15000, 25920, 35280, 40320, 40320, 256, 4374, 24576, 75000, 155520, 246960, 322560, 362880, 362880, 512, 13122
(list; table; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,2
|
|
|
COMMENTS
| Essentially the same as A104001.
Row sums are 1, 4, 16, 74, 406, 2618, 19486, 164570, 1555006, 16252778,...
|
|
|
LINKS
| Fan Chung, Ron Graham, Primitive juggling sequences, Am. Math. Monthly 115 (3) (2008) 185-194
|
|
|
FORMULA
| using their notation: J(b,n)=If[ n > b, (b + 1)^(n - b)*b!, n! ]
|
|
|
EXAMPLE
| 1;
2, 2;
4, 6, 6;
8, 18, 24, 24;
16, 54, 96, 120, 120;
32, 162, 384, 600, 720, 720;
64, 486, 1536, 3000, 4320, 5040, 5040;
128, 1458, 6144, 15000, 25920,35280, 40320, 40320;
256, 4374, 24576, 75000, 155520,246960, 322560, 362880, 362880;
512, 13122, 98304, 375000, 933120, 1728720, 2580480, 3265920, 3628800, 3628800;
|
|
|
MATHEMATICA
| J[b_, n_] = If[ n > b, (b + 1)^(n - b)*b!, n! ]; c = Table[Table[J[b, n], {b, 1, n}], {n, 1, 10}]; Flatten[c]
|
|
|
CROSSREFS
| Sequence in context: A109832 A039731 A005341 * A008130 A055388 A065457
Adjacent sequences: A137265 A137266 A137267 * A137269 A137270 A137271
|
|
|
KEYWORD
| nonn,tabl,uned
|
|
|
AUTHOR
| Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Mar 12 2008
|
| |
|
|
