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

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A137268 Period and balls triangular sequence for Juggling from Chung-Graham. 0

%I

%S 1,2,2,4,6,6,8,18,24,24,16,54,96,120,120,32,162,384,600,720,720,64,

%T 486,1536,3000,4320,5040,5040,128,1458,6144,15000,25920,35280,40320,

%U 40320,256,4374,24576,75000,155520,246960,322560,362880,362880,512,13122

%N Period and balls triangular sequence for Juggling from Chung-Graham.

%C Essentially the same as A104001.

%C Row sums are 1, 4, 16, 74, 406, 2618, 19486, 164570, 1555006, 16252778,...

%H Fan Chung, R. L. Graham, <a href="http://www.jstor.org/stable/27642443">Primitive juggling sequences</a>, Am. Math. Monthly 115 (3) (2008) 185-194

%F using their notation: J(b,n)=If[ n > b, (b + 1)^(n - b)*b!, n! ]

%e 1;

%e 2, 2;

%e 4, 6, 6;

%e 8, 18, 24, 24;

%e 16, 54, 96, 120, 120;

%e 32, 162, 384, 600, 720, 720;

%e 64, 486, 1536, 3000, 4320, 5040, 5040;

%e 128, 1458, 6144, 15000, 25920,35280, 40320, 40320;

%e 256, 4374, 24576, 75000, 155520,246960, 322560, 362880, 362880;

%e 512, 13122, 98304, 375000, 933120, 1728720, 2580480, 3265920, 3628800, 3628800;

%t 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]

%K nonn,tabl,uned

%O 1,2

%A _Roger L. Bagula_, Mar 12 2008

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.

Last modified May 26 02:56 EDT 2020. Contains 334613 sequences. (Running on oeis4.)