|
|
A096540
|
|
Quotients T(p,k)/p, where T(p,k) is the sub-triangle defined in A096539 of the triangle of coefficients of Lucas polynomials (cf. A034807).
|
|
0
|
|
|
1, 1, 1, 1, 1, 2, 1, 1, 4, 7, 5, 1, 1, 5, 12, 14, 7, 1, 1, 7, 26, 55, 66, 42, 12, 1, 1, 8, 35, 91, 143, 132, 66, 15, 1, 1, 10, 57, 204, 476, 728, 715, 429, 143, 22, 1, 1, 13, 100, 506, 1771, 4389, 7752, 9690, 8398, 4862, 1768, 364, 35, 1, 1, 14, 117, 650, 2530, 7084, 14421
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,6
|
|
LINKS
|
|
|
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, 31, for(k=1, p\2, print1(T(p, k)/p, ", ")))
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,tabf
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|