%I A090809
%S A090809 0,0,2,10,31,75,155,287,490,786,1200,1760,2497,3445,4641,6125,7940,
%T A090809 10132,12750,15846,19475,23695,28567,34155,40526,47750,55900,65052,
%U A090809 75285,86681,99325,113305,128712,145640,164186,184450,206535,230547
%N A090809 Coefficient of the irreducible character of S_m indexed by (m-2n+2,2n-2) 
               in the n-th Kronecker power of the representation indexed by (m-2,
               2).
%D A090809 A. Goupil, Combinatorics of the Kronecker products of irreducible representations 
               of Sn, in preparation.
%F A090809 a(k) = 2*binomial(k, 2)+4*binomial(k, 3)+3*binomial(k, 4).
%F A090809 a(n) = A049020(n, n-2), for n>=2 . - DELEHAM Philippe (kolotoko(AT)wanadoo.fr), 
               Mar 06 2004
%e A090809 a(7)=21.
%p A090809 f := proc(k) 2*binomial(k,2)+4*binomial(k,3)+3*binomial(k,4); end;
%p A090809 Table[(StirlingS2[i+2, i]+(-StirlingS1[i+1, i])), {i,0, 36}] - Zerinvary 
               Lajos (zerinvarylajos(AT)yahoo.com), Mar 24 2007
%p A090809 with (combinat):a[0]:=0:for n from 1 to 50 do a[n]:=2*a[n-1]-a[n-2]+1 
               od: seq(a[n]+stirling2(n+2,n), n=-1..36); - Zerinvary Lajos (zerinvarylajos(AT)yahoo.com), 
               Mar 17 2008
%t A090809 f[n_] := 2Binomial[n, 2] + 4Binomial[n, 3] + 3Binomial[n, 4]; Table[ 
               f[n], {n, 0, 40}] (from Robert G. Wilson v Feb 13 2004)
%Y A090809 Sequence in context: A064932 A162249 A156492 this_sequence A051747 A024456 
               A050927
%Y A090809 Adjacent sequences: A090806 A090807 A090808 this_sequence A090810 A090811 
               A090812
%K A090809 easy,nonn
%O A090809 0,3
%A A090809 Alain Goupil (goupil(AT)math.uqam.ca), Feb 10 2004
%E A090809 More terms from Robert G. Wilson v (rgwv(AT)rgwv.com), Feb 13 2004