|
Search: id:A160490
|
|
|
| A160490 |
|
The p(n) sequence that is associated with the Lambda triangle A160487 |
|
+0
3
|
|
| 12, 1440, 907200, 101606400, 100590336000, 172613016576000, 31415569016832000, 256351043177349120000, 4471274895099323351040000, 8495422300688714366976000000, 90272357367118278863486976000000
(list; graph; listen)
|
|
|
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: A145835 A008992 A161149 this_sequence A015096 A160237 A012870
Adjacent sequences: A160487 A160488 A160489 this_sequence A160491 A160492 A160493
|
|
KEYWORD
|
easy,nonn
|
|
AUTHOR
|
Johannes W. Meijer (meijgia(AT)hotmail.com), May 24 2009
|
|
|
Search completed in 0.002 seconds
|
