login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
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; text; 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

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

Fan Chung, R. L. 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: A309075 A039731 A005341 * A008130 A055388 A065457

Adjacent sequences:  A137265 A137266 A137267 * A137269 A137270 A137271

KEYWORD

nonn,tabl,uned

AUTHOR

Roger L. Bagula, Mar 12 2008

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified April 6 21:24 EDT 2020. Contains 333286 sequences. (Running on oeis4.)