%I A019584
%S A019584 0,0,1,18,108,400,1125,2646,5488,10368,18225,30250,47916,
%T A019584 73008,107653,154350,216000,295936,397953,526338,685900,
%U A019584 882000,1120581,1408198,1752048,2160000,2640625,3203226
%N A019584 n^2*(n-1)^3/4.
%F A019584 a(n) = Sum[Sum[(i^3+j^3)/2, {i, 1, n-2}], {j, 1, n-2}] - Alexander Adamchuk 
               (alex(AT)kolmogorov.com), Oct 24 2004
%p A019584 a:=n->sum(sum(n^3/4, j=0..n),k=0..n): seq(a(n), n=-1..26); - Zerinvary 
               Lajos (zerinvarylajos(AT)yahoo.com), May 09 2007
%t A019584 Table[Sum[Sum[(i^3+j^3)/2, {i, 1, n-2}], {j, 1, n-2}], {n, 1, 30}]
%Y A019584 Sequence in context: A002165 A008654 A060787 this_sequence A041622 A160765 
               A125328
%Y A019584 Adjacent sequences: A019581 A019582 A019583 this_sequence A019585 A019586 
               A019587
%K A019584 nonn
%O A019584 0,4
%A A019584 N. J. A. Sloane (njas(AT)research.att.com).