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, 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
Crossrefs
Cf. A034807.
Row sums are in A160909. - Klaus Brockhaus, May 30 2009
Programs
-
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),",")))
Extensions
Edited and extended by Klaus Brockhaus, Jun 27 2004