

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 subtriangle 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
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,1


LINKS

Table of n, a(n) for n=1..52.


PROG

(PARI) T(n, k)=if(k<0  2*k>n, 0, binomial(nk, k)+binomial(nk1, k1)+(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
Adjacent sequences: A096536 A096537 A096538 * A096540 A096541 A096542


KEYWORD

nonn,tabf


AUTHOR

Lekraj Beedassy, Jun 24 2004


EXTENSIONS

Edited and extended by Klaus Brockhaus, Jun 27 2004


STATUS

approved



