|
|
A171246
|
|
Triangle read by rows: T(n,k) = 1 + floor(n!/2^((k - n/2)^2 + 1)).
|
|
2
|
|
|
1, 1, 1, 1, 2, 1, 1, 3, 3, 1, 1, 7, 13, 7, 1, 1, 13, 51, 51, 13, 1, 1, 23, 181, 361, 181, 23, 1, 1, 34, 530, 2120, 2120, 530, 34, 1, 1, 40, 1261, 10081, 20161, 10081, 1261, 40, 1, 1, 38, 2384, 38144, 152573, 152573, 38144, 2384, 38, 1
(list;
table;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,5
|
|
LINKS
|
|
|
FORMULA
|
T(n,k) = 1 + floor(n!/2^((k - n/2)^2 +1)).
|
|
EXAMPLE
|
Triangle begins as:
1;
1, 1;
1, 2, 1;
1, 3, 3, 1;
1, 7, 13, 7, 1;
1, 13, 51, 51, 13, 1;
1, 23, 181, 361, 181, 23, 1;
1, 34, 530, 2120, 2120, 530, 34, 1;
|
|
MATHEMATICA
|
T[n_, k_]:= 1 +Floor[n!*2^(-(k-n/2)^2 -1)]; Table[T[n, k], {n, 0, 10}, {k, 0, n}]//Flatten
|
|
PROG
|
(PARI) {T(n, k) = 1 + floor(n!/2^((k - n/2)^2 +1))}; \\ G. C. Greubel, Apr 11 2019
(Magma) [[1 +Floor(Factorial(n)/2^((k - n/2)^2 +1)): k in [0..n]]: n in [0..10]]; // G. C. Greubel, Apr 11 2019
(Sage) [[1 + floor(factorial(n)/2^((k-n/2)^2 +1)) for k in (0..n)] for n in (0..10)] # G. C. Greubel, Apr 11 2019
|
|
CROSSREFS
|
|
|
KEYWORD
|
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|