%I A137268
%S A137268 1,2,2,4,6,6,8,18,24,24,16,54,96,120,120,32,162,384,600,720,720,64,486,
%T A137268 1536,3000,4320,5040,5040,128,1458,6144,15000,25920,35280,40320,40320,
%U A137268 256,4374,24576,75000,155520,246960,322560,362880,362880,512,13122
%N A137268 Period and balls triangular sequence for Juggling from Chung-Graham.
%C A137268 Row sum sequence is:
%C A137268 {1, 4, 16, 74, 406, 2618, 19486, 164570, 1555006, 16252778}
%D A137268 http://www.maa.org/pubs/monthly_mar08_toc.html; Primitive Juggling Sequences; 
               By: Fan Chung and Ron Graham; fan(AT)ucsd.edu, graham(AT)ucsd.edu; 
               page 188
%F A137268 using their notation: J(b,n)=If[ n > b, (b + 1)^(n - b)*b!, n! ]
%e A137268 {1},
%e A137268 {2, 2},
%e A137268 {4, 6, 6},
%e A137268 {8, 18, 24, 24},
%e A137268 {16, 54, 96, 120, 120},
%e A137268 {32, 162, 384, 600, 720, 720},
%e A137268 {64, 486, 1536, 3000, 4320, 5040, 5040},
%e A137268 {128, 1458, 6144, 15000, 25920,35280, 40320, 40320},
%e A137268 {256, 4374, 24576, 75000, 155520,246960, 322560, 362880, 362880},
%e A137268 {512, 13122, 98304, 375000, 933120, 1728720, 2580480, 3265920, 3628800, 
               3628800}
%t A137268 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]
%Y A137268 Sequence in context: A109832 A039731 A005341 this_sequence A008130 A055388 
               A065457
%Y A137268 Adjacent sequences: A137265 A137266 A137267 this_sequence A137269 A137270 
               A137271
%K A137268 nonn,uned
%O A137268 1,2
%A A137268 Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Mar 12 2008