login
A096539
Delete first column (index 0) and all rows having nonprime index of triangle T(p,k) defined in A034807 (coefficients of Lucas polynomials). Sequence gives resulting sub-triangle read by rows.
2
2, 3, 5, 5, 7, 14, 7, 11, 44, 77, 55, 11, 13, 65, 156, 182, 91, 13, 17, 119, 442, 935, 1122, 714, 204, 17, 19, 152, 665, 1729, 2717, 2508, 1254, 285, 19, 23, 230, 1311, 4692, 10948, 16744, 16445, 9867, 3289, 506, 23, 29, 377, 2900, 14674, 51359, 127281
OFFSET
1,1
PROG
(PARI) T(n, k)=if(k<0 || 2*k>n, 0, binomial(n-k, k)+binomial(n-k-1, k-1)+(n==0 && k==0)) \\from A034807
forprime(p=2, 29, for(k=1, p\2, print1(T(p, k), ", ")))
CROSSREFS
Cf. A034807.
Row sums are in A160909. - Klaus Brockhaus, May 30 2009
Sequence in context: A239277 A302445 A094749 * A338141 A067364 A090547
KEYWORD
nonn,tabf
AUTHOR
Lekraj Beedassy, Jun 24 2004
EXTENSIONS
Edited and extended by Klaus Brockhaus, Jun 27 2004
STATUS
approved