|
| |
|
|
A160490
|
|
The p(n) sequence that is associated with the Lambda triangle A160487
|
|
2
| |
|
|
12, 1440, 907200, 101606400, 100590336000, 172613016576000, 31415569016832000, 256351043177349120000, 4471274895099323351040000, 8495422300688714366976000000, 90272357367118278863486976000000
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 2,1
|
|
|
MAPLE
| nmax:=12; jn:=nmax+1: im:=nmax+1: for n from 1 to nmax do for i from 2 to im do cfn2(i, 1):=0 end do: for j from 1 to jn do cfn2(1, j):=1 end do: for j from 2 to jn do for i from 2 to im do cfn2(i, j):= cfn2(i, j-1) + cfn2(i-1, j-1)*(2*j-3)^2 end do end do: Delta(n-1):= sum((1-2^(2*k-1))* (-1)^(n+1)*(-bernoulli(2*k)/(2*k))*(-1)^(k+n)*cfn2(n-k+1, n), k=1..n) /(2*4^(n-1)*(2*n-1)!); LAMBDA(-2, n):= sum(2*(1-2^(2*k-1))*(-bernoulli(2*k)/ (2*k))*(-1)^(k+n)* cfn2(n+1-k, n), k=1..n)/ factorial(2*n-2) end do: Lcgz(2):=1/12: f(2):=1/12: for n from 3 to nmax do Lcgz(n):=LAMBDA(-2, n-1)/((2*n-2)*(2*n-3)): f(n):= Lcgz(n)-((2*n-3)/(2*n-2))*f(n-1) end do: for n from 1 to nmax do b(n):=denom(Lcgz(n+1)) end do: for n from 1 to nmax do b(n):=2*n*denom(Delta(n-1))/2^(2*n) end do: p(2):=b(1): for n from 2 to nmax do p(n+1):= lcm(p(n)*(2*n)*(2*n-1), b(n)) end do: a:=n-> p(n): seq(a(n), n=2..nmax+1);
|
|
|
CROSSREFS
| A160487 is the Lambda triangle.
Equals 6*(2*n-2)!*A160476(n).
Sequence in context: A008992 A181856 A161149 * A015096 A160237 A013474
Adjacent sequences: A160487 A160488 A160489 * A160491 A160492 A160493
|
|
|
KEYWORD
| easy,nonn
|
|
|
AUTHOR
| Johannes W. Meijer (meijgia(AT)hotmail.com), May 24 2009
|
| |
|
|
