A132612 Column 1 of triangle A132610.
1, 1, 4, 39, 648, 15465, 483240, 18685905, 861282832, 46085893011, 2807152825020, 191731595897600, 14510053796849640, 1205013817282706730, 108941005329522201360, 10650027832902977866245, 1119401271751383414197280, 125879457463215695125460535
Offset: 0
Keywords
Programs
-
PARI
{a(n)=local(A=vector(n+2), p); A[1]=1; for(j=1, n-1, p=n^2-(n-j)^2; A=Vec((Polrev(A)+x*O(x^p))/(1-x))); A=Vec((Polrev(A)+x*O(x^p))/(1-x)); A[p+1]} for(n=0,25,print1(a(n),", "))
-
PARI
{a(n)=local(A=[1]);for(i=1,n,A=Vec(Ser(A)/(1-x)^(2*(#A)-1));A=concat(A,A[#A]));A[#A]} for(n=0,25,print1(a(n),", "))
Comments