|
| |
|
|
A246659
|
|
a(n) = binomial(n-h,h)*hypergeometric([h-n/2,h-(n-1)/2],[1],4), h = floor(n/4).
|
|
0
|
|
|
|
1, 1, 3, 7, 9, 28, 95, 306, 285, 1071, 3948, 14148, 11844, 47160, 182655, 690580, 547965, 2244385, 8961953, 35016345, 26885859, 112052304, 456606332, 1824478488, 1369818996, 5777515212, 23884958520, 97002706248, 71654875560, 304865648208, 1273989485439
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
0,3
|
|
|
COMMENTS
|
a(n) is the k-th term of n-th row of triangle of A132885 where k = floor(n/4). - Altug Alkan, Nov 29 2015
|
|
|
LINKS
|
|
|
|
FORMULA
|
|
|
|
MAPLE
|
a := proc(n) local h; h := iquo(n, 4); binomial(n-h, h)*hypergeom([h-n/2, h-n/2+1/2], [1], 4) end: seq(round(evalf(a(n), 99)), n=0..30);
|
|
|
MATHEMATICA
|
a[n_] := With[{h = Quotient[n, 4]}, Binomial[n-h, h]*Hypergeometric2F1[h-n/2, h-(n-1)/2, 1, 4]];
|
|
|
CROSSREFS
|
|
|
|
KEYWORD
|
nonn
|
|
|
AUTHOR
|
|
|
|
STATUS
|
approved
|
| |
|
|
